Viết chương trình pascal tính tổng 12 áooas
|
Question viết chương trình pascal tính tổng n số tự nhiên đầu tiên in progress 0 Tin
học Gianna 5 tháng 2021-07-25T12:18:53+00:00 2021-07-25T12:18:53+00:00
2 Answers 5 views 0 Answers ( )
Leave an answerGianna
câu 1: uses crt; var p,i:integer; begin clrscr; p:=1;i:=1;while i<=5 do begin p:=p*i;i:=i+1; end; write(p); readln; end. bai 2: uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3: uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end. *Cách khác: Dùng for Câu 1: uses crt; var p,i:longint; begin p:=1; for i:=1 to 4 do p:=p*i; writeln(p); readln; end. Câu 2: uses crt; var i,s:longint; begin clrscr; s:=1; for i:=1 to 10 do if i mod 2=1 then s:=s*i; writeln(s); readln; end. Câu 3: uses crt; var n,i,s:longint; begin clrscr; write('Nhap n='); readln(n); s:=0; for i:=1 to n do if i mod 2=0 then s:=s+i; writeln(s); readln; end. Copyright © 2022 Hoc247.net Đơn vị chủ quản: Công Ty Cổ Phần Giáo Dục HỌC 247 GPKD: 0313983319 cấp ngày 26/08/2016 tại Sở KH&ĐT TP.HCM Giấy phép Mạng Xã Hội số: 638/GP-BTTTT cấp ngày 29/12/2020 Địa chỉ: P401, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM
Hãy luôn nhớ cảm ơn và vote 5* TRẢ LỜI
uses crt; var s, i : integer; begin s:=0; for i:=11 to 50 do s:=s+i; write (' S=',s); end. Hãy giúp mọi người biết câu trả lời này thế nào? star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star 4 star star star star star 1 vote
uses crt; var i,s: word; begin clrscr; for i:=11 to 50 do s:=s+i; writeln ('tong s=11+12+...+50= ',s); readln; end. xin hay nhất ạ !!! Hãy giúp mọi người biết câu trả lời này thế nào? star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star |
