Старжинский 27 ноября 2019 в 11:21
Составить в Паскале программу. Пользователь должен ввести число. Затем, если число положительное (больше нуля), то умножаем его на 2, иначе прибавляем к числу 1.
Составить в Паскале программу. Пользователь должен ввести число. Затем, если число положительное (больше нуля), то умножаем его на 2, иначе прибавляем к числу 1.
Program p1;
var
num: integer;
begin
write(Введите число: );
readln(num);
if num gt; 0 then
writeln(Вывод: , num * 2)
else
writeln(Вывод: , 1 + num);
end.
var
num: integer;
begin
write(Введите число: );
readln(num);
if num gt; 0 then
writeln(Вывод: , num * 2)
else
writeln(Вывод: , 1 + num);
end.
Для комментирования необходимо зарегистрироваться на сайте