Регистрация
EllenOnyschuk
02.08.2020 21:01
Информатика
Есть ответ 👍

Шко
Славіншу стрілка гору
натиснуто?
то
знішити розмір на ѕ0)
Укажи на условие в базовой структуре разветвления
полной формы в среде Скретч
знінити розмір на -10
три
Два
Один​

288
500
Посмотреть ответы 1

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

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.

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