Nguyễn Ngọc Dung

viết chương trình thức hiện đếm và in ra các số chẵn trong đọn từ 10 đến 55 (mỗi số cách nhau một khoảng trắng).

Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:54

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=10 to 55 do 

  if i mod 2=0 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
trần hoàng
Xem chi tiết
Pham Thuan
Xem chi tiết
Selena Flynn
Xem chi tiết
hà phương
Xem chi tiết
Tuoi tom May
Xem chi tiết
Lê Quang Ngọc
Xem chi tiết
Tali
Xem chi tiết
Jhon wisk
Xem chi tiết
Jhon wisk
Xem chi tiết