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

Question

Информатика

Гали

5 ноября, 18:42

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

+1

Ответы (1)

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

Марюша · Answer 1

Var

a:integer;

begin

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

readln (a) ;

if a mod 2 = 0 then begin

writeln ('Число четное ... прибавляем 5') ;

a: = a+5; end

else begin

writeln ('Число нечетное ... вычитаем 10') ;

a:=a-10;

end;

writeln (a) ;

end.