Получить сумму тех чисел данной последовательности, которые кратны 5

@Mariya1758 · Регистрация: 05.05.2014

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

дано целые числа а1, ., а 50. получить сумму тех чисел данной последовательности, которые кратны 5

@Артур234 · 27.05.2014, 09:01

Pascal

const N=50;
var 
s,i:integer;
a:array[1..50] of integer;
begin
for i:=1 to 50 do readln(a[i]);
s:=0;
for i:=1 to 50 do
if a[i] mod 5 = 0 then s:=s+a[i];
writeln(s);
end.

@Соколиный глаз · 09.01.2020, 09:48

Mariya1758, решение через кроссплатформенный аналог PABCSystem:

Pascal

{$reference ABCNET.dll}
uses ABCNET.Utils;
begin
  Arr.Rand(50, 0, 100).Println()
    .Where(x -> x mod 5 = 0).Println()
    .Sum().Println();
end.

@ZX Spectrum-128 · 09.01.2020, 10:04

Последовательность, заполненная случайными числами:

Pascal

const
  N = 50;
 
var
  s, i: integer;
  a: array[1..n] of integer;
 
begin
  randomize;
  s := 0;
  for i := 1 to n do 
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
    if a[i] mod 5 = 0 then 
      s := s + a[i];
  end;
  writeln;
  writeln('Sum: ', s);
end.

@Пс · 09.01.2020, 10:07

Соколиный глаз, Зачем подключать сторонние либы?

Pascal

1
2
3

begin
  1.to(50).Println.Where(i -> i mod 5 = 0).Sum.Println;
end.

@Соколиный глаз · 09.01.2020, 10:09

Пс, зачем - сказано здесь:

Выучите одну библиотеку один раз и используйте её на любом NET-языке!

Я сторонник мнения, что универсальные библиотеки (под несколько языков, или даже платформ) - лучше в том плане, что можно их применять много где и не надо каждый раз учить специфические средства конкретного языка (точнее, его модули и библиотеки). Зачем переплачивать своим временем, если можно применять один раз выученное и от этого никто не страдает? Специфические средства хороши, но особенно хороши тогда, когда без них не обойтись - универсального функционала недостаточно.

@Пс · 09.01.2020, 10:12

ZX Spectrum-128, Зачем все усложнять?)

Pascal

1
2
3

begin
  SeqRandom(50).Println.Where(i -> i mod 5 = 0).Sum.Println;
end.

Добавлено через 29 секунд
Соколиный глаз, Это не аргумент.

Добавлено через 2 минуты
Соколиный глаз, Ваша либа,возможно и удобна,но она сильно облегчает жизнь программистам,из-за чего они перестанут думать,и делать что-то свое,и будут искать уже готовые решения.Надо учится делать самому

@Соколиный глаз · 09.01.2020, 10:13

Сообщение от Пс

но она сильно облегчает жизнь программистам

Аналогичное делает и PABCSystem и это одна из целей его существования. Что Вы об этом скажите? Так что, извините, но:

Сообщение от Пс

Это не аргумент.

Впрочем, каждый решает сам, что будет применять. Мы можем ему лишь показать и подсказать.

@Пс · 09.01.2020, 10:14

Соколиный глаз, Одно дело,когда только один язык,а вы облегчаете жизнь всем .Net - языкам

@Соколиный глаз · 09.01.2020, 10:17

Сообщение от Пс

Соколиный глаз, Одно дело,когда только один язык,а вы облегчаете жизнь всем .Net - языкам

Да. Верно, именно ради этого она и создавалась. Более того, NETSquirrel делает почти то же самое, но в большей степени. Подобных инструментов очень не хватало. Я против, конечно, чтобы люди переставали думать и за них всё делала библиотека или модуль (говоря абстрактно). Но, если человек понимает как что-то работает и сам в состоянии это написать, но не хочет тратить своё время, почему бы не воспользоваться готовым решением, согласитесь?

@Пс · 09.01.2020, 10:21

Сообщение от Соколиный глаз

Впрочем, каждый решает сам, что будет применять. Мы можем ему лишь показать и подсказать.

А где вариант,что лучше переходить на c#?)

@Соколиный глаз · 09.01.2020, 10:23

Сообщение от Пс

А где вариант,что лучше переходить на c#?)

О C# в данной ситуации говорить нелогично, ибо весь функционал может быть использован в любом NET-языке без затруднений. На PascalABC.NET, в частности.

Добавлю про цель проекта, раз про него зашла такая активная беседа:

Обеспечить пользователей PascalABC.NET PABCSystem-подобным функционалом за пределами данного языка. Но, в то же время, не предоставлять множество обёрток для работы с типами NET, а стимулировать обучающихся изучать данную платформу.

Я подозреваю, что возникнет вопрос - зачем тогда сейчас использовать ABCNET, если можно спокойно пользоваться PABCSystem? Ответ следующий - если сразу пользоваться ABCNET, то Вы не будете привязываться к конкретному языку.

@Пс · 09.01.2020, 10:27

Сообщение от Соколиный глаз

О C# в данной ситуации говорить нелогично

Я вам больше скажу,говорить о C# в ветке PABC.NET тоже не логично,но вы,все же,предпочитаете это делать.

@Соколиный глаз · 09.01.2020, 10:29

Сообщение от Пс

Я вам больше скажу,говорить о C# в ветке PABC.NET тоже не логично,но вы,все же,предпочитаете это делать.

Когда в PascalABC.NET нет подходящих средств для решения поставленной задачи, а в C# (или ином языке) - есть, то логично вспомнить о данном языке. В обратном направлении также верно.

@Пс 254 / 147 / 69 Регистрация: 29.07.2018 Сообщений: 1,176
	09.01.2020, 10:21	11
	Сообщение от Соколиный глаз Впрочем, каждый решает сам, что будет применять. Мы можем ему лишь показать и подсказать. А где вариант,что лучше переходить на c#?) 0

@Mariya1758 0 / 0 / 0 Регистрация: 05.05.2014 Сообщений: 72
		1
	Получить сумму тех чисел данной последовательности, которые кратны 5 27.05.2014, 00:11. Показов 4005. Ответов 13 Метки нет (Все метки) дано целые числа а1, ., а 50. получить сумму тех чисел данной последовательности, которые кратны 5 0

@Соколиный глаз Alvin Seville 342 / 272 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	09.01.2020, 10:09	6
	Пс, зачем - сказано здесь: Выучите одну библиотеку один раз и используйте её на любом NET-языке! Я сторонник мнения, что универсальные библиотеки (под несколько языков, или даже платформ) - лучше в том плане, что можно их применять много где и не надо каждый раз учить специфические средства конкретного языка (точнее, его модули и библиотеки). Зачем переплачивать своим временем, если можно применять один раз выученное и от этого никто не страдает? Специфические средства хороши, но особенно хороши тогда, когда без них не обойтись - универсального функционала недостаточно. 1

@Соколиный глаз Alvin Seville 342 / 272 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	09.01.2020, 10:13	8
	Сообщение от Пс но она сильно облегчает жизнь программистам Аналогичное делает и PABCSystem и это одна из целей его существования. Что Вы об этом скажите? Так что, извините, но: Сообщение от Пс Это не аргумент. Впрочем, каждый решает сам, что будет применять. Мы можем ему лишь показать и подсказать. 0

@Пс 254 / 147 / 69 Регистрация: 29.07.2018 Сообщений: 1,176
	09.01.2020, 10:14	9
	Соколиный глаз, Одно дело,когда только один язык,а вы облегчаете жизнь всем .Net - языкам 0

@Соколиный глаз Alvin Seville 342 / 272 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	09.01.2020, 10:17	10
	Сообщение от Пс Соколиный глаз, Одно дело,когда только один язык,а вы облегчаете жизнь всем .Net - языкам Да. Верно, именно ради этого она и создавалась. Более того, NETSquirrel делает почти то же самое, но в большей степени. Подобных инструментов очень не хватало. Я против, конечно, чтобы люди переставали думать и за них всё делала библиотека или модуль (говоря абстрактно). Но, если человек понимает как что-то работает и сам в состоянии это написать, но не хочет тратить своё время, почему бы не воспользоваться готовым решением, согласитесь? 0

@Соколиный глаз Alvin Seville 342 / 272 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	09.01.2020, 10:23	12
	Сообщение от Пс А где вариант,что лучше переходить на c#?) О C# в данной ситуации говорить нелогично, ибо весь функционал может быть использован в любом NET-языке без затруднений. На PascalABC.NET, в частности. Добавлю про цель проекта, раз про него зашла такая активная беседа: Обеспечить пользователей PascalABC.NET PABCSystem-подобным функционалом за пределами данного языка. Но, в то же время, не предоставлять множество обёрток для работы с типами NET, а стимулировать обучающихся изучать данную платформу. Я подозреваю, что возникнет вопрос - зачем тогда сейчас использовать ABCNET, если можно спокойно пользоваться PABCSystem? Ответ следующий - если сразу пользоваться ABCNET, то Вы не будете привязываться к конкретному языку. 0

@Пс 254 / 147 / 69 Регистрация: 29.07.2018 Сообщений: 1,176
	09.01.2020, 10:27	13
	Сообщение от Соколиный глаз О C# в данной ситуации говорить нелогично Я вам больше скажу,говорить о C# в ветке PABC.NET тоже не логично,но вы,все же,предпочитаете это делать. 0

@Соколиный глаз Alvin Seville 342 / 272 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	09.01.2020, 10:29	14
	Сообщение от Пс Я вам больше скажу,говорить о C# в ветке PABC.NET тоже не логично,но вы,все же,предпочитаете это делать. Когда в PascalABC.NET нет подходящих средств для решения поставленной задачи, а в C# (или ином языке) - есть, то логично вспомнить о данном языке. В обратном направлении также верно. 0

Опции темы

Получить сумму тех чисел данной последовательности, которые кратны 5

Решение