Предмет: Информатика,
автор: lisa12344549685
Напишите программу, которая в последовательности натуральных чисел определяет сумму четных чисел , не кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число , не кратное 3. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число- сумму четных чисел, не кратных 3.
Ответы
Автор ответа:
2
Var
a,sum,i,n:integer;
Begin
Writeln('Введите количество чисел в последовательности');
Readln(n);
Writeln('Вводите числа');
For i:=1 to n do
begin
Readln(a);
If (a mod 2 = 0) and (a mod 3 <>0) then sum:=sum+ a;
end;
Writeln('Сумма четных чисел не кратных 3 = ', sum);
end.
a,sum,i,n:integer;
Begin
Writeln('Введите количество чисел в последовательности');
Readln(n);
Writeln('Вводите числа');
For i:=1 to n do
begin
Readln(a);
If (a mod 2 = 0) and (a mod 3 <>0) then sum:=sum+ a;
end;
Writeln('Сумма четных чисел не кратных 3 = ', sum);
end.
Интересные вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Русский язык,
автор: fikus669
Предмет: Қазақ тiлi,
автор: under5moon
Предмет: Алгебра,
автор: BoomClap