вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.
Ответ или решение
var num1, num2, check:integer; summ:real;
begin
ReadLn (num1) ;
ReadLn (num2) ;
summ: = num1 * num2;
check: = Trunc (summ) mod 2;
if ((summ<0) and (check=»0))» then
summ*=-2
else
summ*=1.5;
WriteLn (summ) ;
end.0)>
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!