Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
10 декабря 2022 20:07
919
Ввести 2 числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран?
1
ответ
program test;
var a, b: integer;
begin
write('Enter two numbers: ');
readln(a, b);
if a*b < 0 then
writeln(a*b*(-2))
else
writeln(a*b*3);
readln;
end.
var a, b: integer;
begin
write('Enter two numbers: ');
readln(a, b);
if a*b < 0 then
writeln(a*b*(-2))
else
writeln(a*b*3);
readln;
end.
0
·
Хороший ответ
12 декабря 2022 20:07
Остались вопросы?
Еще вопросы по категории Информатика
Выясните, что представляет собой обратная польская* запись, и вычислите значение записанного с её помощью выражения: 3 4 + 2 × 1 6 × −. *Обратная по...
Помогите пожалуйста 1. Выберите правильные варианты вывода элементов массива на печать в строку. 1)for i:=1 to n do write (a[i], ` ` ) 2)for i:=1...
World Wide Web (WWW)- это всемирное хранилище информации, основанное на технической базе сети интернет поисковая система, расположенная в глобально...
В основу эффективного решения головоломки «Ханойская башня» положен алгоритм, суть которого сводится к следующему: для перемещения башни, состоящей и...
Массив A заполнили, а потом изменили: n := 2020; for i := 1 to n do A[i] := i + 1; for i := 1 to n div 2 do A[i] := A[n + 1 - i]; Че...
Все предметы 
