Напишите программу на паскаль. дано число n меньше или равно 30 000. изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. подсчитать в этом числе количество нулей, единиц, двоек до девяток. подсчитать общее количество цифр в этом числе.
281
362
Ответы на вопрос:
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.
Популярно: Информатика
-
орион1204.04.2023 23:55
-
Kirra2401.05.2021 20:08
-
serp324619.11.2020 00:43
-
ляпрпммм02.01.2022 10:19
-
Halimedy29.12.2020 20:19
-
store148802.04.2022 12:39
-
Невидимка00302.09.2020 08:50
-
Tapoocek11.03.2022 18:53
-
kamila27413.03.2021 03:56
-
aylincik93020.01.2020 08:34