Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число - сумму чисел, кратных 3.

(Pascal)

Question

Информатика

Иля

15 декабря, 07:37

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число - сумму чисел, кратных 3.

(Pascal)

+2

Ответы (2)

Знаете ответ на вопрос?

Юлюся · Answer 1

uses crt;

var a:array[1 ... 300] of integer;

i, s, n, k:integer;

begin

clrscr;

s:=0;

write ('n=') ;

read (n) ;

for i:=1 to n do

begin

read (a[i]) ;

if (a[i] mod 3=0) then s:=s+a[i];

end;

writeln ('s=', s) ;

end.

Лела · Answer 2

Program n1;

Uses CRT;

Var s, i: integer;

begin

ClrScr;

Writeln ('Введите последовательность. Для остановки введите 0 ') ;

Repeat

readln (i) ;

If (i mod 7=0) or (i mod 10=0) then s:=s+i;

until i=0;

writeln ('Сумма = ', s) ;

readln

end.