На вход программе подаётся последовательность натуральных чисел. признак конца ввода – ноль. напишите - id874467220211021 от xalva123 21.10.2021 19:43

Question

Информатика: На вход программе подаётся последовательность натуральных чисел. признак конца ввода – ноль. напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. числа не превосходят 10000. массивы не использовать.

xalva123 · Accepted Answer

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var s:=ReadlnString( Введите строку: ).ToLower;   var c:=ReadlnChar( Введите искомую букву: ).ToLower;   Writeln( Буква встречается ,s.Where(a- a=c).Count, раз(а) ) end. Пример Введите строку: А роза упала на лапу Азора Введите искомую букву: а Буква встречается 8 раз(а) // PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию! begin  ...

MOGZ ответил