Составить в Паскале программу. Пользователь должен ввести число. Затем, если число положительное (больше нуля), то умножаем его на 2, иначе прибавляем к числу 1.

Program p1;

var
   num: integer;

begin
write(Введите число: );
readln(num);
if num > 0 then
    writeln(Вывод: , num * 2)
else
    writeln(Вывод: , 1 + num);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!