Var a,b,ta,tb,r,ucln,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;
ucln:=ta;
bcnn:=a*b div ucln;
Writeln('UCLN(',a,' ',b,') la ',ucln);
Write('BCNN(',a,' ',b,' la ',bcnn);
Readln
End.
Đề 1. Viết phương trình nhập hai số nguyên a và b hoán vị hai số đó khi a>b đưa ra màn hình Đề 2.Viết phương trình nhập số nguyên dương n in ra tổng các số nguyên dương là bội của 3 và 5
Giúp Mình Câu Này Với Ạ Viết Chương Trình Nhập Vào Hai Số Nguyên Dương A Và B(A
Viết chương trình nhập vào 2 số nguyên dương a và b, cho biết kết quả chia lấy phần
dư của a với b.
Viết chương trình nhập vào 2 số nguyên a và b. Tính và in ra màn hình kết quả của phép chia lấy phần nguyên và chia lấy phần dư của 2 số nguyên đó
Viết chương trình tìm ước nguyên tố của một số nguyên dương n nhập từ bàn phím
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên , A1, A2,...,An
a) Đếm số hợp số chẵn và số lẻ
b) Tính tổng các số chẵn
c) đếm số lượng nguyên tố trong dãy
Viết chương trình đưa ra số lớn hơn trong hai số nguyên a và b khác nhau được nhập từ bàn phím Giải gấp giúp mk vs
Bài 1: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tổng các phần tử nguyên âm lẻ và in tổng đó ra màn hình. Bài 2: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tích các phần tử nguyên dương chẵn và in tích đó ra màn hình.
Viết chương trình nhập vào hai số nguyên a,b. tính tổng các số chia hết cho 5 nhưng không chia hết cho 3 trong phạm vi từ a đến b
