Những câu hỏi liên quan
Yên Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2021 lúc 11:37

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if (a>10) cout<<"ban nhap so lon hon 10";

else cout<<"ban nhap so nho hon 10";

return 0;

}

Trần Ngọc Ánh
Xem chi tiết
Nguyễn Trọng Bằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 18:41

uses crt;

var a:real;

begin

clrscr;

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

if a=0 then writeln('Khong tim duoc so nghich dao')

else writeln('So nghich dao la: ',1/a:4:2);

readln;

end.

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.

Trần Đức Huy
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 21:25

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap so: ');

readln(n);

if n mod 2=0 then t:=n else t:=0;

while n<>0 do

begin

write('Nhap so: ');

readln(n);

if n mod 2=0 then t:=t+n;

end;

write('Ket qua la: ',t);

readln

end.

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:07

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
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";

feng
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 5 2022 lúc 10:07

uses crt;

var a:array[1..100]of integer;

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=1;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do 

  if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.