Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
irina0208ga
05.12.2021 22:03 •
Информатика
Записать в файл 10 цифр вводимых пользователем
Показать ответ
Ответ:
Екатерина20876
18.09.2020 21:53
Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
adam83
26.05.2020 01:02
5-тапсырма*. Шеңбердің радиусы берілген. Радиусты пайдаланып, шеңбердің ұзындығы (L) мен дөңгелектің ауданын (S) табатын про-грамма кодын құрастыр. Бұл жерде п= 3.14...
kate823
08.07.2020 16:54
1. какой оператор для выполнения алгоритма ветвления в среде с++ применяются? 2. назовите структуру полного условного оператора. 3. назовите структуру неполного условного...
Riyaa
05.12.2021 19:41
Найдите значение логического выражения:...
brilovainna
16.03.2023 05:01
Упростите логическое выражение:...
KristiDever
09.07.2022 20:31
Из 108 старшеклассников языком программирования Паскаль владеют 92 учеников, 18 учащихся знают язык программирования Java, а 73 ученика – язык Python. При этом известно,...
slepovairina9
29.11.2021 00:46
Вимоги до виконавця алгоритму сильно надо ...
Slrudyko
24.05.2021 05:41
Что означает ввод данных? что означает вывод данных ? какими буквами обозначаются переменные? 1. Составьте программу, которая 6 раз выводит на экранваше имя и фамилию....
FiZik11111032
26.03.2021 21:57
решить в паскале 3 задания ...
УизлиТиСпирс
16.04.2021 00:04
Укажите значения переменных А, В, С, D, при которых логическое выражение ложно:...
AndreyVisaGold
10.03.2023 06:00
плз,надо сделать очень быстро,нужно сдать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
end.