Ветвления и циклы

@katerina001 · Регистрация: 29.11.2009

Студворк — интернет-сервис помощи студентам

Даны целые числа A, A1,..., An. Получить сумму тех чисел данной последовательности, которые удовлятворяют условию |Ai|< i*i.

@yanyk1n · 01.12.2009, 19:18

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a:array[1..100]of integer;
i,n,s:longint;
 
begin
 clrscr;
 write('N-> ');
 read(n);
 for i:=1 to n do read(m[i]);
 readln;
 s:=0;
 for i:=1 to n do if abs(a[i])<sqr(i) then s:=s+a[i];
 writeln(s);
 readln;
end.

@katerina001 · 01.12.2009, 19:34 **[ТС]**

Спасибочки огромное!!!!!!!!

Добавлено через 13 минут
а что значит ('N-> ')??

@Inadequate · 01.12.2009, 19:45

katerina001, просто украшение... чтобы при вводе не были просто цифры...

@yanyk1n · 01.12.2009, 19:52

А по-научному - пользовательский интерфейс...

@katerina001 · 01.12.2009, 19:53 **[ТС]**

понятно) спасибо!!!!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@katerina001 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 12

	Ветвления и циклы 01.12.2009, 19:12. Показов 1127. Ответов 5 Метки нет (Все метки) Даны целые числа A, A1,..., An. Получить сумму тех чисел данной последовательности, которые удовлятворяют условию \|Ai\|< i*i. 0

@katerina001 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 12
	01.12.2009, 19:34 [ТС]
	Спасибочки огромное!!!!!!!! Добавлено через 13 минут а что значит ('N-> ')?? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	01.12.2009, 19:45
	katerina001, просто украшение... чтобы при вводе не были просто цифры... 1

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	01.12.2009, 19:52
	А по-научному - пользовательский интерфейс... 1

@katerina001 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 12
	01.12.2009, 19:53 [ТС]
	понятно) спасибо!!!! 0