Vinepsams
4 год назад
Дана последовательность из N натуральных чисел. Определить сумму чисел этой последовательности, оканчивающихся на 5.
ОТВЕТЫ
Терентий
Oct 24, 2020
program z1;
var
N, S, k, a: integer;
begin
Write('Введите N:');
readln(N);
S := 0;
k := 1;
while k <= N do
begin
write('Введите a',k,': ');
readln(a);
if a mod 10 = 5 then S := S + a;
k := k + 1;
end;
writeln('Сумма чисел, оканчивающихся на 5 = ', S);
end.
var
N, S, k, a: integer;
begin
Write('Введите N:');
readln(N);
S := 0;
k := 1;
while k <= N do
begin
write('Введите a',k,': ');
readln(a);
if a mod 10 = 5 then S := S + a;
k := k + 1;
end;
writeln('Сумма чисел, оканчивающихся на 5 = ', S);
end.
525
Смежные вопросы: