Question

Ввести 2 числа, найти их разность, вывести сообщение: разность отрицательна или неотрицательна.

Помогите пожалуйста

Answer 1

scalВыделить код

1

2

3

4

5

6

7

8

9

10

11

var

a,b: integer;

begin

write('введите 1-е число: '); readln(a);

write('введите 2-у число: '); readln(b);

writeln('сумма ',a,' и ',b,' = ',a+b);

writeln('разность ',a,' и ',b,' = ',a-b);

writeln('произведение ',a,' и ',b,' = ',a*b);

writeln('частное ',a,' и ',b,' = ',(a/b):5:2);

readln;

end.