Đáp án: -Nhập vào bốn số nguyên dương bất kì -In ra màng hình các số lẻ(in trên cùng một dòng,mỗi số cách nhau bốn khoảng trống) -Để xem có bao nhiêu số chẵn và bao nhiêu số lẻ Chạy chương trình với các dữ liệu (3;1;2;4) (7;4;8;6) (1;5;7; - uses crt;var a,b,c,d,ilongint;beginclrscr;write(ʹnhap 4 so nguyen duongʹ);readln(a,b,c,d);if a mod 2<>0 thenbeginwrite(a4);i=i+1;end;if b mod 2<>0 thenbeginwrite(b4);i=i+1;end;if c mod 2<>0 then beginwrite(c4);i=i+1;end;if d mod 2<>0 thenbeginwrite(d4);i=i+1;end;writeln;writeln(ʹso leʹ,i);readlnend

Trần Lý

-Nhập vào bốn số nguyên dương bất kì -In ra màng hình các số lẻ(in trên cùng một dòng,mỗi số cách nhau bốn khoảng trống). -Để xem có bao nhiêu số chẵn và bao nhiêu số lẻ. Chạy chương trình với các dữ liệu (3;1;2;4) (7;4;8;6) (1;5;7;

Xem đáp án

1 câu trả lời

Khoa Đăng

uses crt;
var a,b,c,d,i:longint;
begin
clrscr;
write('nhap 4 so nguyen duong');
readln(a,b,c,d);
if a mod 2<>0 then
begin
write(a:4);
i:=i+1;
end;
if b mod 2<>0 then
begin
write(b:4);
i:=i+1;
end;
if c mod 2<>0 then
begin
write(c:4);
i:=i+1;
end;
if d mod 2<>0 then
begin
write(d:4);
i:=i+1;
end;
writeln;
writeln('so le',i);
readln
end.