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

@Magjan93 · Регистрация: 29.12.2010

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

Даны натуральное число n, целые числа a1,...an.Найти количество и сумму тех членов данной последовательности,которые делятся на 5 и не делятся на 7 !!! решите плз на паскале!!!

@mifi · 30.12.2010, 10:03

Pascal

program qwerty;
var n,sum,i,count: integer;
    a: array[1..30000] of integer;
begin
writeln('Enter N:');
readln(n);
writeln('Enter a1,a2,a3,...,an:');
count:=0;
sum:=0;
for i:=1 to n do
begin
 readln(a[i]);
 if (a[i] mod 5=0) and (a[i] mod 7<>0) then
  begin
   count:=count+1;
   sum:=sum+a[i]
  end;
end;
writeln('Count=',count);
writeln('Summa takih 4isel=',sum);
readln;
end.

@juliajul · 11.11.2012, 11:38

а можно эту задачу в vfp?

@Magjan93 0 / 0 / 0 Регистрация: 29.12.2010 Сообщений: 5
		1
	Найти количество и сумму тех членов данной последовательности, которые делятся на 5 и не делятся на 7 29.12.2010, 17:36. Показов 7858. Ответов 2 Метки нет (Все метки) Даны натуральное число n, целые числа a1,...an.Найти количество и сумму тех членов данной последовательности,которые делятся на 5 и не делятся на 7 !!! решите плз на паскале!!! 0

@juliajul 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 3
	11.11.2012, 11:38	3
	а можно эту задачу в vfp? 0

Опции темы

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

Решение