Question

Дано ціле число. Якщо воно є додатнім, то відняти від нього 8, в іншому випадку залишити без змін. Вивести отриманий результат на екран. В ПАСКАЛЕ АБС.​

Answer 1

Ответ:

program Project1;

var

num: integer;

begin

readln(num);

if num > 0 then

num := num - 8;

writeln(num);

end.

Объяснение:

Спочатку оголошуємо змінну num типу integer. Потім зчитуємо значення num з вводу. Якщо num > нуля, віднімаємо 8 від num. Ну і виводимо значення num.