uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x mod y=0 then writeln(x,' chia het cho ',y)
else writeln(x,' khong chia het cho ',y);
readln;
end.
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x mod y=0 then writeln(x,' chia het cho ',y)
else writeln(x,' khong chia het cho ',y);
readln;
end.
câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông s : =a*a; p:=4*a;
câu 2 viết chương trình tính tổng , tích và hiệu của hai số được nhập từ bàn phím
câu 3 viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay không với a,b,c là 3 số nhập từ bàn phím
Viết chương trinh Pascal kiểm tra số nguyên a khác 0 là số dương hay số âm với a nhập từ bàn phim.
Hãy nêu thuật toánvà viết chương trình cho bài toán tính tổng các số tự nhiên chẵn từ 0 đến n , với n nhập vào từ bàn phím.
Cho một số nguyên x . kiểm tra xem x là số chẵn lẻ . Em hãy :
a. xác định bài toán
b. mô tả thuật toán
c. viết chương trình pascal thể hiện thuật toán
GIÚP MK VS Ạ
Cho 2 số nguyên a,b viết chương trình lấy a chia b lấy phần nguyên rồi gán cho c. Kết quả in ra màn hình.
Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B
hãy mô tả thuật toán và viết chương trình pasacal để thực hiện các công việc sau đây
nhập từ bàn phím 3 số thực a, b, c có giá trị bất kì
nếu a, b, c là các số dương thì kiểm tra a, b, c có phải độ dài tam giác , chương trình cần thông báo đó là tam giác thường , tam giác vuông , tam giác cân hay tam giác đều
Viết chương trình một mảng số nguyên x, gồm n phần tử và số nguyên x. Hãy in ra các phần tử trong mảng mà x là ước số lẻ