Предмет: Информатика,
автор: Julia135
Ввести 2 числа. Если их произведение отрицательно и четно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. (в паскале)
Ответы
Автор ответа:
0
Полагаю, что так:
program num;
uses crt;
var
x,y,z: integer;
BEGIN
write('Enter the first number: ');
readln(x);
write('Enter the second number: ');
readln(y);
z:=x*y;
if (z<0) AND ((z mod 2) = 0) then
write(z*-2)
else
write(z*1.5);
END.
program num;
uses crt;
var
x,y,z: integer;
BEGIN
write('Enter the first number: ');
readln(x);
write('Enter the second number: ');
readln(y);
z:=x*y;
if (z<0) AND ((z mod 2) = 0) then
write(z*-2)
else
write(z*1.5);
END.
Похожие вопросы
Предмет: Математика,
автор: Ctinki
Предмет: Алгебра,
автор: foramerican548
Предмет: Математика,
автор: mariadkdksk
Предмет: Математика,
автор: akooo