• С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.

Ответы 1

  • var  a, n, s: integer;begin  a := 1;  while a mod 5 <> 0 do  begin    readln(a);    if a > 10 then        begin            inc(n);            s := s + a;         end;     end;   writeln(s);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years