• Помогите пожалуйста:3
    В числовую переменную последовательно вводятся целые числа, не равные нулю.
    кол-во вводимых чисел n неизвестно. Найти сумму тех чисел, в которых встречаются ровно две цифры 5.(в паскале написать программу)

Ответы 1

  • // PascalABC.NET 3.2, сборка 1367 от 20.12.2016// Внимание! Если программа не работает, обновите версию!begin  var t:integer;  var k:=0;  repeat    Read(t);    if t.ToString.Where(c->c='5').Count=2 then k+=1  until t=0;  Writeln('Количество чисел с двумя пятерками равно ',k)end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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