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

Những câu hỏi liên quan
Chi Phạm Ngọc Diệp
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:08

if (b%2==0) cout<<"b la so chan";

if (b%2==1) cout<<"b la so le";

Chi Phạm Ngọc Diệp
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 14:40

if (b%2==0) cout<<"b la so chan";

else cout<<"b la so le";

Hoàn Trần
Xem chi tiết
Vương Hương Giang
5 tháng 1 2022 lúc 20:10

C

Trần Ngọc Ánh
Xem chi tiết
Ngoc Thanh
Xem chi tiết
Tô Mì
5 tháng 12 2021 lúc 11:02

Điều kiện: a<b
Câu lệnh: if a<b then write(a);

Lý Mạc Sầu
Xem chi tiết
huỳnh duy cát
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 19:53

a)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n<100;

if n mod 2=0 then 

begin

for i:=0 to n do 

  if i mod 2=0 then write(i:4);

end

else writeln(n,' khong la so chan');

readln;

end.

Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 19:53

b)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n<100;

if n mod 2=1 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else writeln(n,' khong la so le');

readln;

end.

nguyễn thị mai hương
Xem chi tiết
Thiện
25 tháng 11 2018 lúc 21:27

program chanle;

uses crt;

var a:integer;

begin

write('nhap so a: ');readln(a)

if a mod 2=0 then writeln('a la so chan')

else writeln('a la so le');

realdn;

end.

Thiện
25 tháng 11 2018 lúc 21:27

readln(a);

ghi thiếu cái ;

:))

luuthianhhuyen
25 tháng 11 2018 lúc 21:29

progam      KT_a_khi_chiacho_2;

uses     crt;

var       a:integer;

begin

Clrscr;

writeln(' Nhap so a ');

readln(a);

Ip (a mod 2 = 0 ) then writeln (a,' Chia het cho 2');

else Ip (a mod 2 <> 0 ) then writeln (a,' ko chia het cho 2');

readln;

end.

Cái này là mk tự vt ko chép mạng nên sai thì Sorry nhang.Trên mạng cx ko có đâu

Bn nên thử ở trên CT pascal trước r ghi vào cho chắc nhé!!!

Hoàn Trần
Xem chi tiết
๖ۣۜHả๖ۣۜI
5 tháng 1 2022 lúc 19:41

C