Составить Программу в Paskal ABC Чтобы: Ввести А и В Увеличить А на10 Уменьшить В в 4 раза Найти разницу А и В Умножить разницу на А Вывести результат умножения
Составить Программу в Paskal ABC Чтобы:
Ввести А и В
Увеличить А на10
Уменьшить В в 4 раза
Найти разницу А и В
Умножить разницу на А
Вывести результат умножения
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы