• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от lenchik1

  1. L

    Запись-класс

    Запись-класс type TAbonent=record FIO:string[30]; Adress:record street:string[20]; num_home:integer; num_flat:integer end; numberphone:string[11] end...
  2. L

    Алгоритм rle

    Алгоритм rle program Project2; {$APPTYPE CONSOLE} uses SysUtils, Windows; VAR File_In,File_Out:file of byte; mn:integer; exit_:Char; name1,name2:string; {========================================================================} procedure Compress(f1,f2:string); VAR...
  3. L

    Найти ошибку

    Найти ошибку rogram Project2; {$APPTYPE CONSOLE} uses SysUtils,windows; var s:string; i,n,k:Integer; f:TextFile; begin SetConsoleCP(1251); SetConsoleOutputCP(1251); Writeln('введи кол-во слов в кодировочной книге'); read(n); //---------------------------------------------...
  4. L

    Найти ошибки

    я убрала,но все равно 0 выводит(((((((((
  5. L

    Найти ошибки

    а процедура read info правильно сделана?
  6. L

    Найти ошибки

    program Project2; {$APPTYPE CONSOLE} uses SysUtils, windows; const n=20; type tstudent = record name:string[10]; kurs:Byte; group:Byte; spec:string[10]; mark:String[5]; end; tmas=array [1..n] of tstudent...
  7. L

    Найти ошибки

    Найти ошибки rogram Project2; {$APPTYPE CONSOLE} uses SysUtils, windows; const n=20; type tstudent = record name:string[10]; kurs:Byte; group:Byte; spec:string[10]; mark:String[9]; end; tmas=array [1..n] of...
Назад
Сверху