Viết chương trình tính tổng các số chia hết cho 2 trong phạm vi từ 66 đến 99. Thông báo kết quả ra màn hình?

Question

aivilan · Answer

program phuongt;

uses crt;

var s, i: integer;

begin

clrscr;

s:=0;

for i:=66 to 99 do if if i mod 2 = 0 then s:=s+i;

write(‘Tong = ‘, s);

readln

end.

Kymlien · Answer

`#Kenshiro`

Program FNG;
Uses crt;
Var i: 66..99;
s: longint;
Begin
Clrscr;
s:=0;
For i:=66 to 99 do
s:=s+i;
Write(‘S = ‘,s);
Readln
End.

0 bình luận về “Viết chương trình tính tổng các số chia hết cho 2 trong phạm vi từ 66 đến 99. Thông báo kết quả ra màn hình?”