В числовую переменную последовательно вводятся целые числа, не равные нулю.
кол-во вводимых чисел n неизвестно. Найти сумму тех чисел, в которых встречаются ровно две цифры 5.(в паскале написать программу)
кол-во вводимых чисел n неизвестно. Найти сумму тех чисел, в которых встречаются ровно две цифры 5.(в паскале написать программу)
More Questions From This User See All
Answers & Comments
Verified answer
//PascalABC.NET версия 3.2, сборка 1367begin
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.