Kyupezoln
4 год назад
Поставил 35 поинтов! Пожалуйста посчитайте быстрей! Написать программу на паскаль Ввести 2 числа Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран
ОТВЕТЫ
Любомир
Oct 24, 2020
program t;
var
a, b: real;
begin
read(a,b);
if a*b < 0 then
writeln(a*b*2)
else
writeln(a*b*1.5);
end.
var
a, b: real;
begin
read(a,b);
if a*b < 0 then
writeln(a*b*2)
else
writeln(a*b*1.5);
end.
197
Смежные вопросы: