1.Sử dụng lệnh while…do, viết chương trình kiểm tra số nguyên N được nhập vào từ bàn phím là số nguyên chẵn hay không
2..Sử dụng lệnh while…do, viết chương trình kiểm tra số nguyên N được nhập vào từ bàn phím là số nguyên dương không
1.Sử dụng lệnh while…do, viết chương trình kiểm tra số nguyên N được nhập vào từ bàn phím là số nguyên chẵn hay không
2..Sử dụng lệnh while…do, viết chương trình kiểm tra số nguyên N được nhập vào từ bàn phím là số nguyên dương không
1.
var i,n: integer;
s:longint;
begin
write(‘nhap so n=’);readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i; i:=i+1;
end;
write(‘tong cua’,n,’ so tu nhien dau tien la’,s);
readln
end.
2.
Program chan _le;
Var N: interger;
Begin
Writeln(‘Nhap so nguyen N’);
Readln(N);
If (N mod 2=0) Then write(‘N la so chan )
else
Write (N la so le);
Readln;
End.