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

Question

Информатика

Таша

31 августа, 09:19

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

+4

Ответы (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.