Question

Задача: На вход поступает одно целое число x. Если число меньше 10, то возвести его в квадрат, иначе вычесть 10. Например, после запуска программы, вы ввели число 3, то программа выдаст 9; если после запуска программы, вы введете число 15, то программа выдаст число 5.

Answer 1

Ответ:

program Pomocsh;

var

x:integer;

begin

read(x);

 if x<10 then begin

 x:=x*x;

 writeln(x);

 end

 else begin

 x:= x-10;

 writeln(x);

 end

end.

Объяснение: как то так