0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
5
1
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
2863
21136
Các bài này không cần while do nha bạn
Chỉ cần if điều kiện thôi
Bài 1:
program bai_giai;
uses crt;
var N:longint;
begin
clrscr;
write('Nhap N '); readln(n);
if N mod 2=0 then write('La so chan')
else write('Khong phai so chan');
readln;
end.
Bài 2:
program bai_giai;
uses crt;
var N:longint;
begin
clrscr;
write('Nhap N '); readln(n);
if N>0 then write('La so nguyen duong')
else write('Khong phai so nguyen duong');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin