Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
<span>end.</span>

0 0

4 года назад

ПОЖАЛУЙСТА, ОЧЕНЬ СРОЧНО В магазинах города молоко продаётся по цене от 45 до 70 рублей за литр. Написать программу, которая выч

Евгения Салкуцан

В магазинах города молоко продаётся по цене...

0 0

3 года назад

1.Исправить ошибки в программе;2.Что выведется на экран в результате выполнения программы?War:a,b,c-integer.x:real;BiginA=7,b=3,

Татьяна Чернова

1). var
a:integer;
b,c,x:real;
begin
a:=7;
b:=3.2;
c:=a+b;
writeln('summa=',c);
c:=c/2;
x:=a-c;
writeln('x=',x,'kvadrat=',x*x);
end.

2). Первое-выведется сумма цифр равная "C"
второе-выведется значение "х"=а минус полу сумма(1,9 это будет) а потом квадрат этого числа, т.е. 1,9*1,9=3,61.... вроде все)))

0 0

3 года назад