Những câu hỏi liên quan
An An Nguyễn
Xem chi tiết
Lê thị anh thư
Xem chi tiết
Dương
Xem chi tiết
ʍ๏ɲ ȼhąɲ
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:49

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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:50

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.

Bình luận (0)
Nguyenthanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:07

a) 

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:07

b) 

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

Bình luận (0)
Ngọc Anh Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 11 2021 lúc 0:26

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a<<" "<<b;

return 0;

}

Bình luận (0)
Trương Quốc THanh
21 tháng 12 2021 lúc 11:40

Viết chương trình nhập vào hai số nguyên A và B từ bàn phím và in ra kết quả so sánh của hai số nguyên đó

Bình luận (0)
Thủy Tiên
Xem chi tiết
Nguyễn An Ninh
12 tháng 5 2023 lúc 21:28

``python
def UCLN(a, b):
if b == 0:
return a
else:
return UCLN(b, a % b)
a = int(input("Nhập số nguyên a: "))
b = int(input("Nhập số nguyên b: "))
benn = (a * b) // UCLN(a, b)
print("BCNN của", a, "và", b, "là:", bann)

Bình luận (1)
Kiều Vũ Linh
13 tháng 5 2023 lúc 10:34

var a,b,ta,tb,r,bcnn:integer;

begin

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

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

ta:=a;

tb:=b;

repeat

r:=ta mod tb;

ta:=tb;

tb:=r;

until r=0;

bcnn:=a*b/ta;

write('BCNN(',a,' ',b,') la ',bcnn);

readln

end.

Bình luận (0)
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Minh Lệ
6 tháng 4 2023 lúc 22:39

Program HOC24;

var a,b: integer;

begin

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

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

write('Tong la: ',a+b);

readln

end.

Bình luận (0)
Trương Quốc THanh
Xem chi tiết
Tô Mì
21 tháng 12 2021 lúc 11:49

program So_sanh;

uses crt;

var a, b: integer;

begin

writeln('Nhap so thu nhat');

readln(a);

writeln('Nhap so thu hai');

readln(b);

if a > b then write(a, '>' b) else write(a, '<' b);

end.

 

Bình luận (0)