Напишите программу на паскаль. Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. Подсчитать в этом числе количество нулей, единиц, двоек до девяток. Подсчитать общее количество цифр в этом числе.

Question

Информатика

Лазарь

23 августа, 20:20

Напишите программу на паскаль. Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. Подсчитать в этом числе количество нулей, единиц, двоек до девяток. Подсчитать общее количество цифр в этом числе.

+3

Ответы (1)

Знаете ответ на вопрос?

Лада · Answer 1

Program test;

var i, n, schet:integer; s:string;

begin

readln (n) ;

for i:=1 to n do

s:=s+inttostr (n) ;

schet:=length (s) ;

writeln (schet) ;

end.