Дано число. Если оно делится на 11, то уменьшить ч Дано число. Если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11. исло в 11 раз, в противном случае уменьшить число на 11.

Question

Эмма

14 декабря, 14:21

+4

Ответы (1)

Знаете ответ?

Родион · Answer 1

Var

a:integer;

begin

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

read (a) ;

if a mod 11 = 0 then

a:=a div 11

else

a:=a-11;

writeln (a) ;

end.