Задача 74807 Составить программу с оператором IF:к ...

65790ba142718a6f375fd583

12/16/2023 12:52:01 PM

Составить программу с оператором IF:к
Ввести с клавиатуры целое число. Если оно положительное, вычесть из
него 50, в противном случае прибавить к нему 100

64c75b82b635261bba022a6f

12/16/2023 1:00:54 PM

★

program if_example;

var
num: integer;

begin
writeln('Введите целое число:');
readln(num);

if num > 0 then
num := num - 50
else
num := num + 100;

writeln('Результат: ', num);
end.