Xác định (INPUT) .(OUTPUT) và viết các chương trình : tính số trung bình cộng 3 số nguyên dương nhập từ bàn phí
Tính tích và thương 2 số nguyên dương nhập từ bàn phím
Xác định (INPUT) .(OUTPUT) và viết các chương trình : tính số trung bình cộng 3 số nguyên dương nhập từ bàn phí Tính tích và thương 2 số nguyên dương
By Alice
1. Input : 3 số nguyên dương
Output : TBC của 3 số
chương trình
program az;
uses Crt;
var a,b,c : integer;
TBC : real;
begin
clrscr;
Write(‘NHap 3 so = ‘); readln(a,b,c);
TBC := (a+b+c)/3;
Write(‘Trung binh cong 3 so la ‘,TBC);
readln
end.
2.
program az;
uses Crt;
var a,b : integer;
T_1,T_2,t : real;
begin
clrscr;
Write(‘Nhap 2 so = ‘); readln(a,b);
t :=a*b;
T_1 := a/b;
T_2 := b/a;
Write(‘Thuong 2 so la : ‘,T_1);
Write(‘Thuong 2 so la : ‘,T_2);
Write(‘Tich 2 so la : ‘,t);
readln
end.
Câu 2:
var a,b,tich,thuong:integer;
begin
write(‘nhap 2 so:’);readln(a,b);
tich:=a*b;
thuong:=a/b;
writeln(‘tich 2 so la:’,tich);
writeln(‘thuong 2 so la:’,thuong);
readln
end.