Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mai thị tố uyên

Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập

Ngô Bá Hùng
1 tháng 5 2023 lúc 11:40

program PrintEvenOdd;

var
  num, even, odd, i: Integer;

begin
  even := 0;
  odd := 0;
  for i := 1 to 5 do
  begin
    writeln('Nhap so thu ', i, ': ');
    readln(num);
   
    if num mod 2 = 0 then
      even := even + 1 
    else
      odd := odd + 1;
  end;
  writeln('Tong chan: ', even);
  writeln('Tong le: ', odd);
end.

Kiều Vũ Linh
1 tháng 5 2023 lúc 18:43

Var a:array[1..5] of integer;

i:integer;

Begin

For i:=1 to 5 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so chan la ');

For i:=1 to 5 do

If a[i] mod 2 = 0 then write(a[i]:8);

Writeln;

Write('Cac so le la ');

For i:=1 to 5 do

If a[i] mod 2 <> 0 then write(a[i]:8);

Readln

End.


Các câu hỏi tương tự
Phan Thị Ka
Xem chi tiết
Gia Kỳ
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Nguyễn Hiếu
Xem chi tiết
hello sun
Xem chi tiết
Trần Đức Huy
Xem chi tiết
Kisaragi Saya
Xem chi tiết
Trần Đức Huy
Xem chi tiết
DinoDrang
Xem chi tiết