[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#10

11.12.2009, 14:03

Thenno

Участник форума

Регистрация: 03.07.2009

Сообщений: 151

Провел на форуме:
638378

Репутация: 41

Отправить сообщение для Thenno с помощью ICQ

Цитата:

Сообщение от 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'е. И я еще не говорю про учебники.