uses crt;
var k,b,n,i,c,s,a: integer;
begin
clrscr;
write('Vvedite k=');readln(k);
s:=0;
i:=0;
while s<k do//идем вперед, создаем ряд из квадратов
begin
i:=i+1;
b:=i*i;
c:=1;
n:=10;
while b div n <> 0 do//считаем цифры
begin
n:=n*10;
c:=c+1;
end;
s:=s+c;
write(b);//перешли цифру, или ровно попали
end;
s:=s-c;//назад на 1 число
n:=n div 10;
while s<>k do//от его начала по одной цифре идем вперед
begin
a:=b div n mod 10;
n:=n div 10;
s:=s+1;//доходим до нужной цифры
end;
writeln;
write(a);//выводим
writeln;
readln
end.
Содержание. В деревне был мужик (Глеб), который прославился тем, что умел любого городского жителя поставить в тупик своими рассуждениями на любую тему. К соседке приехал сын с семьей (оба кандидаты каких-то наук), Глеб с друзьями-мужиками пришел в гости, их посадили за стол, а он начинает "умничать", несет всякую ерунду, городские гости вообще не понимают, о чем он говорит, но для сельских мужиков он кажется самым умным. Сделав свое дело, Глеб гордо уходит, в очередной раз "срезав" образованных хозяев.
Глеб Капустин - главныйгерой Журавлев Костантин Иванович - кандидат наук Журавлева Валентина - жена Константина, кандидат наук мужики
Содержание. В деревне был мужик (Глеб), который прославился тем, что умел любого городского жителя поставить в тупик своими рассуждениями на любую тему. К соседке приехал сын с семьей (оба кандидаты каких-то наук), Глеб с друзьями-мужиками пришел в гости, их посадили за стол, а он начинает "умничать", несет всякую ерунду, городские гости вообще не понимают, о чем он говорит, но для сельских мужиков он кажется самым умным. Сделав свое дело, Глеб гордо уходит, в очередной раз "срезав" образованных хозяев.
Глеб Капустин - главныйгерой Журавлев Костантин Иванович - кандидат наук Журавлева Валентина - жена Константина, кандидат наук мужики
var k,b,n,i,c,s,a: integer;
begin
clrscr;
write('Vvedite k=');readln(k);
s:=0;
i:=0;
while s<k do//идем вперед, создаем ряд из квадратов
begin
i:=i+1;
b:=i*i;
c:=1;
n:=10;
while b div n <> 0 do//считаем цифры
begin
n:=n*10;
c:=c+1;
end;
s:=s+c;
write(b);//перешли цифру, или ровно попали
end;
s:=s-c;//назад на 1 число
n:=n div 10;
while s<>k do//от его начала по одной цифре идем вперед
begin
a:=b div n mod 10;
n:=n div 10;
s:=s+1;//доходим до нужной цифры
end;
writeln;
write(a);//выводим
writeln;
readln
end.