Регистрация
ум5789
31.01.2022 21:16
Информатика
Есть ответ 👍

Кодирование графической информации

199
227
Посмотреть ответы 1

Ответы на вопрос:

Философияна5
Философияна5
4,6(47 оценок)

var a:integer;

begin

read (a);

if a>0 then

a:=a+1;

if a<0 then

a:=a-2;

if a=0 then

a:=10;

write(a);

end.

Популярно: Информатика