Cấu trúc rẽ nhánh và lặp

DH

Viết chương trình tính tổng 5+10+15+...+100

NT
23 tháng 2 2020 lúc 12:30

uses crt;
var t,a,i:integer;
begin
clrscr;
a:=5;
t:=0;
for i:=1 to 20 do
begin
t:=t+a;
a:=a+5;
end;
writeln(t);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
PT
Xem chi tiết
LT
Xem chi tiết
HN
Xem chi tiết
VL
Xem chi tiết
H24
Xem chi tiết
DQ
Xem chi tiết
H24
Xem chi tiết
NN
Xem chi tiết
NN
Xem chi tiết