Воскресенье, 19.11.2017, 15:30
Приветствую Вас Гость | RSS

Высшее образование дает возможность
нам заработать на хлеб,
а самообразование - на икру и на масло

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Test category » Решение задач на языке Паскаль » Найти n-ю цифру в последовательности (Найти n-ю цифру в последовательности)
Найти n-ю цифру в последовательности
УчительДата: Пятница, 23.11.2012, 22:32 | Сообщение # 1
Рядовой
Группа: Администраторы
Сообщений: 8
Репутация: 0
Статус: Offline
На доске выписана последовательность квадратов целых чисел без пробелов, начиная с единицы 149162536494981100 ... Найти n-ю цифру в этой последовательности.
Формат входных данных
В единственной строке входного файла задается n (1<n<100)
Формат выходных данных
Ответ на задачу
 
УчительДата: Пятница, 23.11.2012, 22:33 | Сообщение # 2
Рядовой
Группа: Администраторы
Сообщений: 8
Репутация: 0
Статус: Offline
program kvadrary;
uses crt;
var f1,f2:text;
s,p,k:string;
x,m,n,i:integer;
begin
assign(f1,'b.in');
assign(f2,'b.out');
reset(f1);
rewrite(f2);
readln(f1,n);
write('vvedite kol-vo zifr:');
readln(m);
for i:=1 to m do
begin
x:=i*i;
str(x,k);

s:=s+k;
end;
write(s) ;
for i:=1 to length(s) do
begin
p:=copy(s,n,1);
end;
writeln(f2,p);
close(f1);
close(f2);
end.
Прикрепления: 4436807.exe(5Kb) · 5293037.in(0Kb) · 4679225.out(0Kb) · 4325506.exe(5Kb)
 
Форум » Test category » Решение задач на языке Паскаль » Найти n-ю цифру в последовательности (Найти n-ю цифру в последовательности)
Страница 1 из 11
Поиск: