Var n,i,j,k,s,sn:integer;
begin
writeln('n = ');
readln(n);
sn:=round(sqrt(n));
for i:=1 to sn do
for j:=1 to sn do
for k:=1 to sn do
begin
s:=i*i+j*j+k*k;
if s=n then writeln(i,'^2+',j,'^2+',k,'^2 = ',s);
end;
end.
Пример:
<span>n = 253
3^2+10^2+12^2 = 253
3^2+12^2+10^2 = 253
10^2+3^2+12^2 = 253
10^2+12^2+3^2 = 253
12^2+3^2+10^2 = 253
12^2+10^2+3^2 = 253</span>
Ответ:
один...
Объяснение:
Всего лишь один путь.....
преобразовывая выражение
x*(¬(y+z)+z)
как видно х может только первый столбец, так как произведение равно 1 только в случае если оба множителя 1
ну анализируя сумму в скобках-подходит только во втором столбце z, а в третьем у
Начало (в овале)
x:=1 (прямоугольник, задаем данные)
x<=5 (условие, в ромбе)
y:=(15x+4)/(9x-2) (прямоугольник)
вывод y (параллелепипед)
x:=x+0.5 (прямоугольник) (после выполнения этого действия возвращаемся на проверку условия и проверяем его до тех пор, пока оно выполняется, как только условие не выполняется идём на конец)
конец (овал)