Поделись с друзьями
Сайт учителя информатики
Лозинского Дмитрия Болеславовича		 Среда, 27.11.2024, 03:14
Главная | Каталог статей | Регистрация | Вход Приветствую Вас Гость | RSS
Сайттың тараулары/
Меню сайта
Тараудың санаттары/
Категории раздела
Мои статьи [35]
E-mail:
Пароль:
Іздеу/Поиск
Форма входа
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Статьи » Мои статьи
Решение олимпиадной задачи "Последовательность"
Решение олимпиадной задачи "Последовательность"



Листинг программы для решения

program  B;
         var S:string;             
         N,i,P:integer;            
         F1, F2: text;            
begin
     assign (F1, 'B.in');     
     reset (F1);              
     assign (F2, 'B.out');    
     rewrite (F2);           
     ReadLn(F1, N);           
     i:=0; P:=0;              
Repeat                     
        i:=i+1; Str(i*i,S);       
        if P+Length(S)>=N        
           then  writeln(F2,S[N-P]); 
        P:=P+Length(S);    
    until P>=N;             
    close (F1);                
    close (F2);               
end.



Категория: Мои статьи | Добавил: Lozinsky (04.01.2014)
Просмотров: 799 | Теги: Паскаль, задача Последовательность | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright Лозинский Д.Б. © 2024
Конструктор сайтов - uCoz