Ввести 2 числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран?

1 ответ

Посмотреть ответы

Megamozg

2205

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.

Хороший ответ

12 декабря 2022 20:07

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Создать массив a из десяти целых чисел, принадлежащих промежутку [0; 25). Вывести полученный массив на экран. Подсчитать k- количество элементов масси... Приведите примеры формы представления информации: по номерам в порядке убывания... Что будет выведено на экран после выполнения фрагмента программы? s := 'фоксфорд'; s1 := 'крокодил'; s := copy(s,1,4) + 'т' + copy(s1,2,2) +... 1) Некоторый сегмент сети Интернет состоит из 1000 сайтов. Поисковый сервер в автоматическом режиме составил таблицу ключевых слов для сайтов этого се... Помогите решить...