Целое число вводится с клавиатуры. Если оно не чётное прибавить к нему 10. Иначе разделить его на 5. Результат вывести на экран.

Question

Федосий

1 мая, 19:23

+4

Ответы (1)

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

Машуха · Answer 1

Var a:integer;

begin

writeln ('a=') ;

readln (a) ;

if a mod 2=0 then writeln (a+10) else

writeln (a/5) ;

readln;

end.