Môn tin. Viết chương trình nhập vào 2 số nguyên dương a,b (đk a
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ững câu hỏi liên quan
20 tháng 1 2021
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.
13 tháng 12 2022
Var a,b:Integer;
Begin
Clrscr;
Write(' Nhap a, b');
Read(a,b);
End.
5 tháng 5 2021
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.
5 tháng 5 2021
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.
M
2
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.
BA
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
HH
3
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.
LV
2
10 tháng 9 2021
#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;
}
5 tháng 10 2021
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.
5 tháng 10 2021
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.
Nhập xong rồi làm gì nữa vậy bạn?