@ovsyanka5000

Прошу помочь мне с решением задачи?

задача звучит следующим образом: без хранения найти два минимальных числа, сумма квадратов которых >500. фрагмент моей программы на паскале :
for i:=1 to n do begin 
 readln (f, a);
 if (a<min1) then begin min2:=min1; min1:=a; end;
 if (a>min1) and (a<min2) then min2:=a;
 end;


как можно проверить на квадраты? сама сообразить не могу. желательно описать алгоритм на паскале либо просто объяснить суть словами. благодарю заранее.
  • Вопрос задан
  • 82 просмотра
Пригласить эксперта
Ответы на вопрос 2
longclaps
@longclaps
begin
    writeln(16, 16);
end.
Ответ написан
@Cobalt747
начинай с 1-цы и увеличивай с каждым шагом на 1.
Как только получишь сумму > 500 - прерывай цикл.
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы