Viết chương trình tính tổng n số tự nhiên chẵn đầu tiên n được nhập từ bàn phím
Gợi ý
– biến n nhập từ bàn phím
– biến S:=0;
For…to…đó…if…then…
Viết chương trình tính tổng n số tự nhiên chẵn đầu tiên n được nhập từ bàn phím Gợi ý – biến n nhập từ bàn phím – biến S:=0; For…to…đó…if…the
By Eden
program tong;
uses crt;
var n,i,T: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
if i mod 2=0 then T:=T+i;
write(‘Tong cac so chan = ‘,T);
readln
End.
var n,i,s : integer;
begin
writeln(‘nhap n=’);
readln(n);
s:=0
for i:=1 to n do if (i mod 2 =0) then s:=si;
writeln(‘tong cua cac so chan tu 2 den n la=’,s);
readln;
end.