Регистрация
Войти
Стать экспертом Правила
Информатика

Паскаль ! Найти сумму натуральный от 2 до 56 , кратных 5?

ОТВЕТЫ
var
  a, b, c: integer;

begin
  c := 56;
  for a := 2 to c do
  begin    if a mod 5 = 0 then      b := b + a;  end;
  writeln(b);end.
446
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам