Program zadacha;
Var i,j,sum: integer;
begin
for i:=10 to 99 do
begin
for j:=10 to 99 do
begin
sum:=";i;"+";j;";
if (sum mod i=0) and (sum mod j=0) then
begin
writeln("";i;" & ";j;"");
end;
end;
end;
end.
Как развивать веб-проекты в 2026 году: технологии, контент E-E-A-T и факторы доверия
Современные инструменты для криптотрейдинга: как технологии помогают принимать решения
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники