|
|
Найти значение выражения 1*1+2*2+...+n*n
{ Найти значение выражения 1*1+2*2+...+n*n }
program prim_1;
{ n - количество слагаемых
s - сумма выражения
i - переменная цикла
}
var
n,s,i : integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i; {находим значение выражения}
writeln('s = ',s);
readln;
end.
скачать программу
|
| Категория: Примеры программ | Добавил: Admin (15.12.2009)
|
| Просмотров: 4979
| Рейтинг: 5.0/1 |
|
|
-->
-->
| linux-mgd.3dn.ru © 2024 |
 |
|
