Светозар
4 год назад
Ввести 2 числа Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран
ОТВЕТЫ
Andriyan
Oct 24, 2020
uses crt;
var
a,b,c:real;
begin
clrscr;
writeln('введите 2 числа через пробел');
readln(a ,b);
c:=a*b;
if (c<0) then begin
c:=c*2;
writeln(c:0:2);
end
else begin
c:=c*1.5;
writeln(c:0:2);
end;
end.
var
a,b,c:real;
begin
clrscr;
writeln('введите 2 числа через пробел');
readln(a ,b);
c:=a*b;
if (c<0) then begin
c:=c*2;
writeln(c:0:2);
end
else begin
c:=c*1.5;
writeln(c:0:2);
end;
end.
695
Смежные вопросы:
