Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thanh Anh

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ẻ ?

 

Minh Lệ
24 tháng 11 2022 lúc 23:00

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.


Các câu hỏi tương tự
huu nguyen
Xem chi tiết
LQmobi Acc
Xem chi tiết
Trúc Anh
Xem chi tiết
Ara T-
Xem chi tiết
Quynh Anh Nguyen Tran
Xem chi tiết
Nguyễn Chí Thành
Xem chi tiết
Nguyen Hoang Khoi
Xem chi tiết
Thiên Phúc
Xem chi tiết
Minh Khang
Xem chi tiết
Kẻ Sát Long
Xem chi tiết