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

Question

Тима

11 декабря, 15:32

+5

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