var n,a,z:integer;
begin
write('n= ');
read (n);
z:=1;
for a:=1 to n do
if (a mod 11 =0)
then z:=z*a;
end;
writeln(z);
end.
Ответ:
Прикрепила вложение)
Объяснение:
.