11.12.2009, 14:03
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от TPAXTOP
помогите плз....передо мной вот такое задание, а в Паскале - почти 0...(
"Обчислити суму квадратів елементів, значення яких більші, ніж 1."
рус
"Знайти суму квадратов элиментов, значение которых больше, чем 1."
Как я понял, сумма квадратов это n^2 + (n+1)^2 и так далее.
Код:
const
n=3;
var
a,i,k:integer; {если могут быть дробные, то integer меняй на real}
begin
k:=0;
for i:=1 to n do
begin
readln (a);
if a>1 then
k:=k+sqr (a);
end;
writeln ('Sum is ', k);
readln; //для ТурбоПаскаля
end.
P.S А вообще, примеров решения подобных задач полно в Googl'е. И я еще не говорю про учебники.
|
|
|