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

Question

Малинья

29 ноября, 08:47

+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.