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

1 ответ

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

Megamozg

2170

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

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

Найти нужный

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

Что это Провайдер? / Информатика Кто умный тут... Найди информационный объём статьи, которая набрана на компьютере и состоит из 20 страниц, на каждой странице 36 строк, в каждой строке 59 символов. от... Чем отличается компьютерный вирус от компьютерного червя? Ничем, это одно и то же Червь не выполняет вредоносных действий Черви могут делиться, ви... Для полей однотабличной базы данных КОЛЛЕКЦИЯ (код, НАЗВАНИЕ ЭКСПОНАТА, АВТОР, МЕСТО ИЗГОТОВЛЕНИЯ , ГОД ИЗГОТОВЛЕНИЯ , ФИО ПРЕДЫДУЩЕГО ВЛАДЕЛЬЦА, ДАТА... Запись ##### в ячейке говорит о том, что:...