viết chương trình nhập 2 số nguyên từ bàn phím và hiện thị ra màn hình tổng và thương 2 số đó

2 câu trả lời

uses crt;
var a,b:real;
begin
clrscr;
    read(a,b);
    writeln(a + b:0:2);
    writeln(a / b:0:2);
readln; readln;
end.

Program tinhtong_thuong;

uses CRT;

var x, y,s,t: real;

BEGIN

CLRSCR;

Write('Nhap x:');Readln(x);

Write('Nhap y:');Readln(y);

s:= x+y;

t:=x/y;

Writeln('x + y =',s:4:2);

Writeln('x / y = ',t:4:2);

Readln;

END.