Регистрация
Aleshchksuni
14.10.2022 05:55
Информатика
Есть ответ 👍

Определите количество символов из которых состоит целое положительное число х. на языке Pascal (оператор выбора switch case) ​

274
330
Посмотреть ответы 1

Ответы на вопрос:

alenalille300
alenalille300
4,6(53 оценок)

pascalabc.net

begin

  writealltext('file2.txt',

    (integer.parse(readalltext('file1.txt')) div 3).tostring)

end.

объяснение:

текстовый файл file1.txt содержит запись целого числа.

readalltext('file1.txt') считывает сдержимое файла в символьную строку,

integer.parse( ) выделяет из нее целое целое число, div 3 выполняет деление на 3, результат при tostring преобразуется к строке, на основе которой writealltext('file2.txt'( ) создает текстовый файл file2.txt.

файлы должны находиться в той же папке, что и исходный текст программы, либо надо в именах явно указывать полный путь.

Популярно: Информатика