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

@Vadik1993 · Регистрация: 16.03.2012

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

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

@Puporev · 17.03.2012, 10:48

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

сумму трех членов

Может не трех, а тех?

Добавлено через 5 минут

Pascal

uses crt;
const n=20;
var a:integer;
    i,s:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел, в т. числе кратных 5:');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if a mod 5=0 then s:=s+a;
 end;
write('Сумма кратных 5=',s);
readln
end.

@Vadik1993 · 17.03.2012, 10:59 **[ТС]**

в задании не тех ,а именно трех. хотя я и сам сомневаюсь .

@Puporev · 17.03.2012, 12:06

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

в задании не тех ,а именно трех.

Тогда которых трех, первых, последних, или еще каких? А если нет трех?

@Vadik1993 59 / 58 / 39 Регистрация: 16.03.2012 Сообщений: 165
		1
	Получить сумму трех членов данной последовательности, которые кратны 5. 17.03.2012, 10:09. Показов 2081. Ответов 3 Метки нет (Все метки) Даны целые числа A1,..., A20. Получить сумму трех членов данной последовательности, которые кратны 5. 0

@Vadik1993 59 / 58 / 39 Регистрация: 16.03.2012 Сообщений: 165
	17.03.2012, 10:59 [ТС]	3
	в задании не тех ,а именно трех. хотя я и сам сомневаюсь . 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.03.2012, 12:06	4
	Сообщение от Vadik1993 в задании не тех ,а именно трех. Тогда которых трех, первых, последних, или еще каких? А если нет трех? 0

Опции темы

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

Решение