Question

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

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.