Составить Программу в Paskal ABC Чтобы:

Ввести А и В

Увеличить А на10

Уменьшить В в 4 раза

Найти разницу А и В

Умножить разницу на А

Вывести результат умножения

Question

Меркул

3 декабря, 19:18

+2

Ответы (2)

Знаете ответ на вопрос?

Хрися · Answer 1

Var

a, b:real;

begin

write ('Введите a, b через пробел: ') ;

readln (a, b) ;

a:=a+10;

b:=b/4;

a:=a*abs (a-b) ;

writeln (a) ;

end.

Ноня · Answer 2

Program one; var A, B, x: real; beginwriteln ('Введите А и В') ; readln (A, B) ; A:=A+10; B:=B/4; x:=A-B; A:=A*x; Writeln (A) ; end.

Составить Программу в Paskal ABC Чтобы:Ввести А и ВУвеличить А на10Уменьшить В в 4 разаНайти разницу А и ВУмножить разницу на АВывести результат умножения