Bài 6. Câu lệnh điều kiện

NT

viết chương trình tính tổng các số chẵn từ 1 đến 100 ( mình chưa học lệnh while ạ nên xin mn đừng dùng lệnh while )

NT
8 tháng 5 2020 lúc 12:38

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan tu 1 den 100 la: ',t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
PP
Xem chi tiết
SX
Xem chi tiết
TB
Xem chi tiết
HV
Xem chi tiết
KQ
Xem chi tiết
LA
Xem chi tiết
SB
Xem chi tiết
NT
Xem chi tiết
VD
Xem chi tiết