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.

Nhập xong rồi làm gì nữa vậy bạn?

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.

21 tháng 1 2021

ko hiểu gì

 

13 tháng 12 2022

Var a,b:Integer;

Begin

Clrscr;

Write(' Nhap a, b');

Read(a,b);

End.

18 tháng 12 2018

xem trên mạng nhé 

18 tháng 12 2018

Tìm mạng suốt r ko thấy

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

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

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

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

8 tháng 12 2019

program bai1;

uses crt;

var a,b: integer;

begin

clrscr;

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

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

writeln(' hai so vua nhap la so: ' ,a,' va ',b);

if a> b then writeln('so lon nhat la : ' ,a) else

writeln('so lon nhat la : ' ,b);

readln;

end.

8 tháng 12 2019

program ho_tro;

uses crt;

var a,b,max: real;

begin

clrscr;

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

max:=a;

max:=b;

if  max<a then max:=a;

if max<b then max:=b;

writeln(' so lon nhat la :',max);

readln;

end.

lần sau nếu có hỏi j về tin thì qua bên h mik sẽ giúp

25 tháng 3 2021

program cau_1;
uses crt;
var a,b,s:integer;
begin
clrscr;
write('nhap so a:'); readln(a);
writeln('nhap so b:');readln(b);
s:=0;
s:=a+b;
writeln('tong hai so a, b la:',s);
readln;
end.

25 tháng 3 2021

jj

#include <iostream>

using namespace std;

int main()

{

int a,b;

cout<<"Nhap so a="; cin>>a;

cout<<"Nhap so b="; cin>>b;

cout<<a%b;

return 0;

}

13 tháng 9 2021

program chia_phan_du;
uses crt;
var a, b: integer;
begin
clrscr;
write('Nhap 2 so nguyen a va b: ');
readln(a, b);
writeln('Ket qua chia lay phan du la: ', a mod b);
end.

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.