Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
добавь 12 нулей с лева от 1000
var n,z: longint;
begin
read(n);
z: =abs(n);
z: =z-2;
writeln(z);
end.
чередование четных не чётных
Популярные вопросы