• Помогите написать программу, пожалуйста.
    Напишите программу, которая находит сумму двухзначных нечетных чисел. Последовательность чисел заканчивается числом 0.

Ответы 2

  • // PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  ReadSeqIntegerWhile(t->t<>0)      .Where(t->t.IsOdd and t.InRange(10,99)).Sum.Printlnend.
    • Автор:

      leroyptor
    • 6 лет назад
    • 0
  • Program n1;var a,sum: integer;beginreadln(a);sum:=0;while a<>0 dobeginif (a>9) and (a<100) and (a mod 2<>0) then sum:=sum+a;readln(a);end;write(sum);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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