Ввести число.если оно неотрицательное, вычесть из - вопрос №124284810 от dashponi2007 20.03.2020 19:12

Question

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

dashponi2007 · Answer

program raf105;

var a:integer;

begin

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

readln(a);

if a>=0

then a:= a-10

else a:= a+10;

writeln('Вывод: ',a);

end.

Язык программирования PascalABC

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