Bài 3: Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 20.
Bài 4: Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20.
Bài 3: Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 20.
Bài 4: Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20.
3. Tổng số lẻ:
Program Tinh_tong;
Uses crt;
Var i,s: integer;
Begin
clrscr;
S:=0;
for i:=1 to 20 do
if i mod 2=1 then S:=S+i;
writeln(‘Tong cac so le tu 1 den 20 la: ‘,s);
readln;
end.
4. Tổng số chẵn
Program Tinh_tong;
Uses crt;
Var i,s: integer;
Begin
clrscr;
S:=0;
for i:=1 to 20 do
if i mod 2=0 then S:=S+i;
writeln(‘Tong cac so chan tu 1 den 20 la: ‘,s);
readln;
end.
Mk tin k giỏi lm nên k chắc nha.
Chúc bn hk tốt!!
`#Dark`
Bài 4:
Program Tinh_tong;
Begin
Clrcsr;
For i:=1 to 20 do B:=B+i*2;
Write(‘tong =’,B);
Readln;
End.
Bài 3:
Program Tinh_tong;
Begin
Clrscr;
For i:=1 to 20 do if i mod 2=1 then S:=S+1;
Write(‘tong=’C);
Readln;
End.