Напишите программу пожалуйста
В последовательности натуральных чисел определить сумму чисел кратных 5
Ответы
Ответ дал:
0
Будем считать последовательность натуральных чисел такую:
1,2,3,4 .. n-1,n
Тогда программа может быть такой:
var
i, s, n: integer;
begin
write('Введите число натуральных чисел: ');
readln(n);
for i := 1 to n do
if i mod 5 = 0 then s := s + i;
writeln('Сумма кратных 5 = ', s);
end.
1,2,3,4 .. n-1,n
Тогда программа может быть такой:
var
i, s, n: integer;
begin
write('Введите число натуральных чисел: ');
readln(n);
for i := 1 to n do
if i mod 5 = 0 then s := s + i;
writeln('Сумма кратных 5 = ', s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад