Регистрация
sashkoefymets
10.06.2022 06:51
Информатика
Есть ответ 👍

решить логические задачи!

142
389
Посмотреть ответы 2

Ответы на вопрос:

денис9645
денис9645
4,6(30 оценок)

хз подумай сам ето всетаки логические

Объяснение:

JUGGERNOUT
JUGGERNOUT
4,7(71 оценок)
Var i,n: integer; res : string; function f(i2: integer; var s: string): boolean; var j,l: integer; begin for j: =1 to i2 do for l: =1 to i2 do begin if j*j+l*l=i2 then begin result: =true; s: =inttostr(i2)+'='+inttostr(j)+'^2+'+inttostr(l)+'^2'; end; end; end; begin writeln('vvedite n'); readln(n); for i: =1 to n do begin if f(i,res) then writeln(res); end; readln; end.

Популярно: Информатика