В числовую переменную последовательно вводятся целые числа, не равные нулю. кол-во...

Question

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

Answer 1

//PascalABC.NET версия 3.2, сборка 1367
begin
    var sum := 0;
    for var i := 1 to ReadInteger('n=') do
    begin
        var num := ReadInteger('Введите число =');
        if num.ToString().ToCharArray.Count(c -> c = '5') = 2 then
            sum += num;
    end;
    Writeln(sum);
end.