Отыскать сумму всех естественных чисел кратных 5. Информатика. Паскаль.

Найти сумму всех естественных чисел кратных 5. Информатика. Паскаль.

Задать свой вопрос
1 ответ
Var
  i, sum, N: integer;

begin
sum:=0;
  Write('Введите диапазон чисел (1..N): ');
  readln(N);
  for i:=1 to N do if i mod 5=0 then sum:=sum+i;
  writeln('Сумма всех естественных чисел, кратных 5-ти, в спектре от 1 до ',N,' = ',sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт