Вычислить сумму квадратов чисел , принадлежащих промежутку (a,b) и стоящих на местах , кратных 4

@Gander · Регистрация: 10.10.2016

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

Вычислить сумму квадратов чисел , принадлежащих промежутку (a,b) и стоящих на местах , кратных 4; подсчитать количество нулей в всём массиве .

@Joy · 10.10.2016, 14:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const N=20;
var
  l:array of integer;
  a,b:integer;
begin
  l:=ArrRandom(N,-10,10);
  writeln('массив:',l);
  write('A,B=');readln(a,b);
  writeln(l.Where((i,j)->((j+1) mod 4=0) and (i>a) and (i<b)).Count=0 ? format('Нет чисел принадлежащих промежутку ({0},{1}) и стоящих на местах кратных 4',a,b) : 
          format('сумма квадратов чисел , принадлежащих промежутку ({0},{1}) и стоящих на местах , кратных 4:{2} ',a,b,l.Where((i,j)->((j+1) mod 4=0) and (i>a) and (i<b)).select(i->i*i).sum()));
  writeln('количество нулей во всем массиве:',l.Select(i->inttostr(i).Length-inttostr(i).Replace('0','').Length).Sum);
  writeln('количество нулевых элементов в массиве:',l.Where(i->i=0).Count);
end.

@Gander · 10.10.2016, 14:43 **[ТС]**

"Решение не приемлемо" так ответил препод , не объяснив толком почему .
Есть ещё решения ? взяли только что тему массивов и циклов . (над как то через них )

@Cyber_Monster_ · 10.10.2016, 17:35

Сообщение от Gander

взяли только что тему массивов и циклов . (над как то через них )

Это и есть массивы.

https://msdn.microsoft.com/ru-... .111).aspx

Напишите модератору, чтобы вашу тему переместил в топик по TurboPascal

@Joy · 10.10.2016, 18:39

Cyber_Monster_, да тут пол группы сидит (или клон), причем все как один PascalABC c PascalABC.Net перепутали.

@Gander · 10.10.2016, 23:48 **[ТС]**

да ) Половина группы стабильно ))

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53

	Вычислить сумму квадратов чисел , принадлежащих промежутку (a,b) и стоящих на местах , кратных 4 10.10.2016, 12:37. Показов 1502. Ответов 5 Метки нет (Все метки) Вычислить сумму квадратов чисел , принадлежащих промежутку (a,b) и стоящих на местах , кратных 4; подсчитать количество нулей в всём массиве . 0

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
	10.10.2016, 14:43 [ТС]
	"Решение не приемлемо" так ответил препод , не объяснив толком почему . Есть ещё решения ? взяли только что тему массивов и циклов . (над как то через них ) 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	10.10.2016, 18:39
	Cyber_Monster_, да тут пол группы сидит (или клон), причем все как один PascalABC c PascalABC.Net перепутали. 0

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
	10.10.2016, 23:48 [ТС]
	да ) Половина группы стабильно )) 0