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

Question

Информатика

Созонтий

24 февраля, 18:13

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

+2

Ответы (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.