Question

Розв'язати задачі №1 і 2 з прикріпленого файлу. Скрін коду мова паскаль

Answer 1

Відповідь:

1. Текст програми на мові Pascal(результат виконання програми на фото, для цього коду 2 фото, щоб перевірити від'ємне і додатнє число:

program positive;

var

num: integer;

begin

write('Введіть ціле число: ');

readln(num);

if num > 0 then

num := num + 1

else

{ якщо число менше або дорівнює нулю, то не змінюємо його };

writeln('Отримане число: ', num);

end.

2. Текст програми на мові Pascal (результат виконання програми на фото також 2 фото):

program positive_or_negative;

var

number: integer;

begin

write('Введіть ціле число: ');

readln(number);

if number > 0 then

number := number + 1

else

number := number - 2;

writeln('Отримане число: ', number);

end.