Дано целое число. Если оно является положительным, то удвоить его; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Question

Информатика

Шерелл

23 сентября, 20:43

Дано целое число. Если оно является положительным, то удвоить его; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

+5

Ответы (1)

Знаете ответ на вопрос?

Джаухар · Answer 1

Var a: Integer;

begin

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

readln (a) ;

if a>0 then a:=a*a;

if a<0 then a:=a-2;

if a=0 then a:=10;

writeln ('Полученное число: ', a) ;

end.