Ввести 2 числа. Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. (на я языке паскаль)
Программа без шапки
Read(a);
Read(b);
C:=a*b;
If c<0 then
Begin
c:=c*2;
Writeln(c);
End;
Else
C:=c*1.5;
End.
------------
Реестр символов не учитывать
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Программа без шапки
Read(a);
Read(b);
C:=a*b;
If c<0 then
Begin
c:=c*2;
Writeln(c);
End;
Else
C:=c*1.5;
Writeln(c);
End.
------------
Реестр символов не учитывать