KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Program BTT; Uses crt; Var i,t: longint; Begin Clrscr; t:=0; For i:=1 to 20 do If i mod 2 = 0 then t:=t+i; Write(‘Tong cac so chan cua 20 so tu nhien dau tien: ‘,t); Readln
Program tinhtong;
Uses Crt;
Var S,i : Integer;
Begin
clrscr;
S:=1;
For i:=1 to 20 do S:=S+i;
Write(‘Tong cua 20 so tu nhien dau tien:’,S);
End.
HỌC TỐT NHÉ !
Program BTT;
Uses crt;
Var i,t: longint;
Begin
Clrscr;
t:=0;
For i:=1 to 20 do
If i mod 2 = 0 then t:=t+i;
Write(‘Tong cac so chan cua 20 so tu nhien dau tien: ‘,t);
Readln