Решить с использованием процедур. указать выделенные , решаемые процедурами. вычислить сумму тех чисел из заданного отрезка [a, b] (a, b — натуральные), в запись которых входит цифра k.

225

236

Посмотреть ответы 2

Ответы на вопрос:

Эверяшка

Информатика

4,7(23 оценок)

Pascalabc.net: procedure getdata(var a,b: longint; var k: char); { ввод исходных данных } begin write('введите через пробел натуральные границы диапазона: '); readln(a,b); write('введите искомую цифру: '); readln(k) end; procedure summa(a,b: longint; k: char; var s: longint); { подсчет суммы чисел из интервала [a,b], содержащих цифру k } var i: integer; ci: string; begin s: =0; for i: =a to b do begin str(i,ci); if pos(k,ci)> 0 then s: =s+i end end; var a,b,sum: longint; k: char; begin getdata(a,b,k); summa(a,b,k,sum); writeln('сумма чисел, содержащих цифру ',k,' равна ',sum) end. тестовое решение: введите через пробел натуральные границы диапазона: 50 150 введите искомую цифру: 6 сумма чисел, содержащих цифру 6 равна 1589