Напишите программу ** паскаль. Дано число n меньше или равно 30 000. Изменяя число i от 1...

Question

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

Comments

Пожалуйста, помогите!!!!

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.

Comments

спасибо вам большое, вы меня спасли