Lập trình đơn giản

PN
Viết chương trình tính tổng các số chẵn của dãy 20 số tự nhiên đầu tiên (khác 0)
NT
7 tháng 2 2021 lúc 9:17

uses crt;

var s,i: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 trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
TN
Xem chi tiết
BT
Xem chi tiết
UL
Xem chi tiết
BH
Xem chi tiết
HP
Xem chi tiết
MD
Xem chi tiết
TL
Xem chi tiết
TH
Xem chi tiết
NA
Xem chi tiết