INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
Var num:integer;
begin
writeln('0 - выход');
repeat
write('Введите число: ');
readln(num);
if(((num mod 11) = 0) or ((num mod 17) = 0)) then writeln('Это число делится на 11 или 17')
else writeln('Это число не делится ни на 11, ни на 17');
until num = 0;
end.
<span>Множество:"3 6 481 9"</span>
неуверенна но всё таки
Победил Пуффендуй со счётом 200.
К. лидировал в периодах 7-15
П.лидировал 20-24;27-56;
ничья: 15-20; 25-26