Ввести 2 числа Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран
Answers & Comments
sergo1439
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.
Answers & Comments
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.