Написать программу в паскале: Найти сумму чисел от 100 до 200 кратных 8.

+618 голосов
449k просмотров

Написать программу в паскале: Найти сумму чисел от 100 до 200 кратных 8.


Информатика | 449k просмотров
Дан 1 ответ
+176 голосов

Ответ:

  • begin
  • (100..200).Where(x->x mod 8 = 0).Sum.Print
  • end.

Пример работы:


image
(3.7k баллов)