Введите число, если оно не отрицательно, вычесть из него 10. в противном случае прибавить к числу 10.

ryvdgruhcdgghhhFrubf ryvdgruhcdgghhhFrubf    3   23.06.2019 06:10    1

Ответы
VF85 VF85  19.07.2020 08:00
Var x: integer;
begin
write('Введите число: ');
readln(x);
if x > 0 then writeln( x - 10 )
else writeln( x + 10 );
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика