Developing.ru

Дано натуральное число n. Среди чисел 1,2,…, n найти все те, которые можно представить в виде суммы квадратов 2-х натуральных чисел (Определить процедуру, позволяющую распознавать полные квадраты)
ну вот мне так кажется что должно быть так, но что то она не работает
Program proced;
uses crt;
var x,y,i,n,а:integer;
Procedure Kvadrat(i:real);
Begin
x:=0; y:=0;
for i:=1 to n do
For x:=1 to i do
For y:=1 to i do
end;
Begin
clrscr;
write ('Vvidite n=');
read (n);
if sqr(x)+sqr(y):=а then writeln (а);
Readln;
readln
end.
Заранее спасибо!!!

дак у тя функция не вызывается, должно быть так(примерно, т.к. пишу прямо тут)

for i:=1 to a do
For x:=1 to i do
For y:=1 to i do
if sqr(x)+sqr(y):=а then writeln (а);
Код будет искать не числа, удовлетворяющие условию, среди 1, 2... а, вместо этого он а раз проверит число а. Так что в последней строке должно быть
if sqr(x)+sqr(y):=i then writeln (i);
а лучше еще и break два раза вставить, чтобы перейти к другому числу.
Вместе с тем циклы можно значительно сократить: вместо
For x:=1 to i do
For y:=1 to i do
писать
For x:=1 to i-1 do
For y:=1 to x do
Иначе он, скажем, 25 определит дважды - как 4^2+3^2 и как 3^2+4^2

Вот хотела сказать вам СПАСИБО! Ну вроде кнопочка должна быть?! Но я ее не нашла... Ну во общем спасибо вам, начну переписывать ее на Си++. Если скажите где кнопка "Спасибо" нажму ее , ой т.е проголосую...жду когда вы скажите где эта кнопка!

Теперь она имеет вид шестиконечной звезды внизу под ником.

ну вот под своим ником я нашла шестиконечную звезду, но под вашими никами никакой звездочки НЕТ! есть треугольник с восклицательным знаком внутри и все.....может она от меня спряталась?! ))

Видимо, вам надо иметь минимум 10 сообщений, чтобы выставлять репутацию другим пользователям.

Помогите, пожалуйста, решить вот такую задачку:
Дано: массивы А(5), B(7), C(9). Вычислить Y=K+M+N, где K-сумма элементов массива А со значением 1, N- сумма элементов массива B со значением 1, M- сумма элементов массива С со значением 1. Вычисление суммы элементов массива со значениями равными единице оформить в виде подпраграммы.

Ну вот Я типа решила!! Она работает, но не факт что правильно
var y,k,m,n:integer;
procedure Summa;
var a:array[1..5] of integer;
b:array [1..7] of integer;
c:array [1..9] of integer;
i:integer;
BEGIN
randomize;
k:=0;m:=0;n:=0;
for i:=1 to 5 do
begin
a:=random(2);
writeln('a',a);
if a=1 then k:=k+a;
end;
for i:=1 to 7 do
begin
b:=random(2);
writeln('b',b);
if b=1 then m:=m+b;
end;
for i:=1 to 9 do
begin
c:=random(2);
writeln('c',c);
if c[i]=1 then n:=n+c[i];
end;
end;
begin
y:=0;
summa;
y:=k+m+n;
writeln('Y=',y);readln;
end.

спасибо!
Правда программа, по моему, не очень правильно работает, но всё равно большое спасибо!
Попытаюсь найти ошибку.

P.S. может есть ещё варианты?