Помогите пожалуйста составить программу ** Pascal: 1) Для нахождения суммы 2^2+4^2+...n^2...

0 голосов
44 просмотров

Помогите пожалуйста составить программу на Pascal:
1) Для нахождения суммы 2^2+4^2+...n^2
2) Для нахождения всех делителей числа n


Информатика (175 баллов) | 44 просмотров
Дан 1 ответ
0 голосов

Var
   n,i:integer;
   S:real;
Begin
Write('n = ');ReadLn(n);
WriteLn('1)');
S:=0;
i:=2;
While i<=n do<br>   Begin
   S:=S+i*i;
   i:=i+2;
   End;
WriteLn('S = ',S);
WriteLn('2)');
Write(n);
i:=n div 2;
While i > 0 do
   Begin
   if n mod i = 0 then Write(' ',i);
   i:=i-1
   End;
End.

(6.6k баллов)