K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

12 tháng 12 2019

uses crt;

var a,b:integer;

begin

clrscr;

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

write('b='); readln(b);

if b=0 then writeln('khong co phep chia cho 0')

else writeln('thuong cua phep chia ',a,' cho ',b,' la: ',a/b:4:2);

readln;

end.

12 tháng 12 2019

program ho_tro;

uses crt;

var a,b,c: real;

begin

clrscr;

writeln(' nhap a va b:'); readln(a,b);

if b<>0 then c:=a/b

else writeln(' loi yeu cau nhap lai:');

writeln(' ket qua cua a chia b la:',c);

readln;

end.

31 tháng 12 2021

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

}

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.

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.

14 tháng 3 2023

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.

19 tháng 12 2021

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

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

19 tháng 12 2021

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

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

17 tháng 12 2021

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

else cout<<"b la so le";

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

31 tháng 3 2021

Program HOC24;

var i,n: integer;

begin

write('Nhap N: '); readln(n);

write('Cac so tu 1 den ',n,' chia het cho 2 la: ');

for i:=1 to n do if i mod 2=0 then write(i,' ');

writeln;

for i:=1 to n do if i mod 2=1 then write(i,' ');

readln

end.