Bài 1: Viết chương trình Pascal nhập số tự nhiên n xuất ra màn hình
+ Các số chẵn từ 1 đến n
+ Đếm bao nhiêu số chẵn từ 1 đến n
+ Tính tổng các số chẵn đó
+ Xét tổng đó là số chẵn hay lẻ ?
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program bai1;
uses crt;
var a,b: longint;
begin
clrscr;
write(' nhap so a=') ; readln(a);
write(' nhap so b='); readln(b);
if a>b then writeln ('a lon hon b');
if a<b then writeln('a nho hon b');
if a=b then writeln('a bang b');
readln;
end,
INput: a,b
Output: So sánh a,b
Mô tả thuật toán:
Bước 1: Nhập a,b
Bước 2: Nếu a>b thì xuất a lớn hơn b
nếu a<b thì xuất a nhỏ hơn b
Nếu a=b thì xuất a=b
B3: kết thúc
Program HOC24;
var i,d,n: integer;
t: longint;
begin
write('Nhap n: '); readln(n);
write('Cac so chan tu 1 den ',n,' la: ');
t:=0; d:=0;
for i:=1 to n do
if i mod 2=0 then
begin
write(i,' ');
d:=d+1;
t:=t+i;
end;
writeln;
writeln('Co ',d,' so chan tu 1 den ',n);
writeln('Tong cac so chan do la: ',t);
if t mod 2=0 then write('Tong do la chan') else ('Tong do la le');
readln
end.