Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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.

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.

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.

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.

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;

}

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 đó

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)

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.

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.

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.