Семён
5 год назад
Составить программу. Ввести 2 числа, если их произведение отрицательно, то умножить его на -2 и вывести на экран, если нет, то увеличить его в 3 раза и вывести на экран.
ОТВЕТЫ
Vasil
Oct 24, 2020
program vetvlenie;
var a,b,c,d:integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a*b;
if c<0 then d:=c*(-2)
else
d:=c*3;
writeln(d);
end.
var a,b,c,d:integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a*b;
if c<0 then d:=c*(-2)
else
d:=c*3;
writeln(d);
end.
732
Смежные вопросы:
