Вопрос, который вызвал трудности
Написать программу: Среди чисел 1<n<100 найти все пары чисел, для которых их суммы равнялись бы их произведению.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Написать программу: Среди чисел 1<n<100 найти все пары чисел, для которых их суммы равнялись бы их произведению.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program zadacha_2;
var
k, a,b :integer;
begin
k:=1;
for a:=1 to 100 do
for b:=1 to 100 do
begin
if a+b=a*b then
begin
k:=k+1;
writeln(‘числа’, a, ‘u’,b,’такая пара чисел’);
end;
end;
if k=0 then writeln(‘таких чисел нет’);
readln;
end.
var
k, a,b :integer;
begin
k:=1;
for a:=1 to 100 do
for b:=1 to 100 do
begin
if a+b=a*b then
begin
k:=k+1;
writeln(‘числа’, a, ‘u’,b,’такая пара чисел’);
end;
end;
if k=0 then writeln(‘таких чисел нет’);
readln;
end.