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

Question

Тараска

27 октября, 20:42

+2

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