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

Question

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

Answer 1

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.

Comments

СПАСИБО

Answer 2

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.

Comments

СПАСИБО