HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #10  
Старый 11.12.2009, 14:03
Thenno
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
С нами: 8871700

Репутация: 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'е. И я еще не говорю про учебники.
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2570 09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.