2 câu trả lời
Program demsochan;
Uses CRT;
Const N=50;
Var i,dem : Integer;
Begin
Clrscr;
dem:=0;
For i := 1 to N do
If i mod 2 = 0 then dem:=dem+1;
Write(dem);
readln;
End
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=50) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
