Даны натуральное число n и последовательность целых чисел а1, а2,…,аn. Найти количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 3. Составить блок-схему алгоритма, написать программу

1

Ответы и объяснения

2011-05-30T19:14:00+04:00

Пожалуйста:

Program 123;
Uses crt;
Var i,s:integer;
Begin
Clrscr;
s:=0;
For i:=1 to 50 do
if (i mod 5=0) and (i mod 3<>0) then
Begin
s:=s+i;
Write(i,' ');
End;
WriteLn('Сумма: ',s);
ReadLn;;
End. Блок-схему легко и самому по записи сделать.