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

65790ba142718a6f375fd583

16 декабря 2023 г. в 12:52

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

64c75b82b635261bba022a6f

16 декабря 2023 г. в 01:00

★

program if_example;

var
num: integer;

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

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

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