| 12345678910111213141516171819202122232425262728 |
- МОДУЛЬ ЧтениеЧисел;
- ИМПОРТ Тексты, Ввод, Вывод;
- ПЕРЕМЕННЫЕ
- имя: МАССИВ 100 ИЗ ЛИТЕРА;
- а, б, в: ЦЕЛОЕ;
- Т: Тексты.Текст;
- С: Тексты.Сканер;
- НАЧАЛО
- Вывод.Строка("Введите имя файла: ");
- Ввод.Ряд(имя);
- НОВЫЙ(Т);
- Тексты.Открыть(Т, имя);
- ЕСЛИ Т.длина = 0 ТОГДА
- Вывод.Строка("Файл пуст."); Вывод.Перенос
- ИНАЧЕ
- Тексты.ОткрытьСканер(С, Т, 0);
- Тексты.Сканировать(С);
- ЕСЛИ С.класс = Тексты.Целое ТОГДА
- а := С.и;
- Вывод.Строка("Прочитано целое число: ");
- Вывод.Целое(а); Вывод.Перенос
- АЕСЛИ С.класс = Тексты.Имя ТОГДА
- Вывод.Строка("Прочитано слово: ");
- Вывод.Строка(С.с); Вывод.Перенос
- КОНЕЦ
- КОНЕЦ
- КОНЕЦ ЧтениеЧисел.
|
