Предмет: Информатика,
автор: ivanovivanov2018
. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.через repeat until
Ответы
Автор ответа:
0
Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Queen141414
Предмет: Математика,
автор: meako228
Предмет: Другие предметы,
автор: ruslangoglidze41
Предмет: География,
автор: krutsira
Предмет: Математика,
автор: Аноним