Question

nhap vao hai so tu nhien bat ki thuc hien phep cong hai so tu nhien neu hai so do lon hon 5 thì duoc tinh t

GIÚP HỘ !!!!!!

Answer 1

uses crt;

var a,b,t:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if (a>5) and (b>5) then

begin

t:=a+b;

writeln('tong la: ',t);

end

else writeln('khong duoc tinh');

readln;

end.

Answer 2

uses crt;

Var x,y,z: Integer;

begin

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

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

z:=x + y;

If (x > 5) and (y > 5) then write ('Tong hai so ',x,' va ',y,' la: ',z);

If (x <= 5) or (y <= 5) then write ('Vui long nhap hai so deu lon hon 5');

readln;

end.