Задание:
Даны натуральное число n и последовательность целых чисел а 1, а 2,… , аn. Найти количество и сумму тех членов последовательности, которые делятся на 5 и неделятся на 3. Составить блок-схему алгоритма, написать программу
Решение:
Пожалуйста: Program 123; Uses crt; Var i,s: integer; BeginClrscr; 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. Блок-схему легко и самому по записи сделать.
Знаете другой ответ?