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

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

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

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

@Joy · 10.10.2016, 14:13

Pascal

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 **[ТС]**

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

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
		1
	Вычислить сумму квадратов чисел , принадлежащих промежутку (a,b) и стоящих на местах , кратных 4 10.10.2016, 12:37. Показов 1312. Ответов 5 Метки нет (Все метки) Вычислить сумму квадратов чисел , принадлежащих промежутку (a,b) и стоящих на местах , кратных 4; подсчитать количество нулей в всём массиве . 0

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

@Cyber_Monster_ 147 / 128 / 155 Регистрация: 22.03.2016 Сообщений: 502
	10.10.2016, 17:35	4
	Сообщение от Gander взяли только что тему массивов и циклов . (над как то через них ) Это и есть массивы. https://msdn.microsoft.com/ru-... .111).aspx Напишите модератору, чтобы вашу тему переместил в топик по TurboPascal 0

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

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