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

Question

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

Comments

Программу на паскале?

---

да

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.