tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решать на pascalabc
Решать на pascalabc имеется текстовый файл. напечатать первые 10 символов файла.
ирмук
3 21.07.2019 10:10
1
Ответы
Асенька2005
23.09.2020 08:16
Var
s:string[10];
f:Text;
begin
Assign(f,'a.txt'); Reset(f);
Readln(f,s); Close(f);
Writeln(s)
end.
ПОКАЗАТЬ ОТВЕТЫ
olgailinsk
23.09.2020 08:16
Var
f: text;
s: string;
begin
assign(f,'input.txt');
reset(f);
readln(f,s);
s:=copy(s,1,10);
writeln(s);
close(f);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
natazhukova95
23.06.2022 20:23
До іть будь ласка які команди до...
Сергей12318
23.06.2022 22:15
. Створити проект задачі : Визначити середнє арифметичне елементів одновимірного масиву значення яких дорівнює заданному числу. Фото процедури, записан ноï в зошиті...
TatyanaKras
23.06.2022 23:28
Яке розгалуження реалізоване у даній програмі?...
Хорошоучусь
24.06.2022 02:38
Расшифруйте это и прочитайте 0JfQtNGA0LDQstGB0YLQstGD0Lkg0LTRgNGD0LMhINCV0YHQu9C4INGC0Ysg0YDQsNGB0YjQuNGE0YDQvtCy0LDQuyDRjdGC0L4sINGC0L4g0YLRiyDQvtCz0YDQvtC80L3Ri9C5INCc0J7Qm9Ce0JTQldCmISDQpdC+0YfRgyDQv9C+0LfQtNGA0LDQstC40YLRjCDQstGB0LXRhSDRgtC10YUg0YLRgNGD0LTRj9CzINC60L7RgtC+0YDRi9C1INC/0YDQsNC60YLQuNGH0LXRgdC60Lgg0LzQvtC80LXQvdGC0LDQu9GM0L3QviDQvtGC0LLQtdGH0LDRjtGCINC90LAg0LLQvtC/0YDQvtGB0YsuINCl0L7Rh9GDINGC0LDQutC20LUg0L/QvtC30LTRgNCw0LLQuNGC0Ywg0LLRgdC10YUg0YLQtdGFINC60YLQviDRh9C40YLQsNC10YIg0Y3RgtC+0YIg0YLQtdC60YHRgiDRgSA5LdGL0Lwg0LzQsNGPLiDQktGLINCy0YHQtSDQvdCw0LjQu9GD0YfRiNC40LUg0YDQtdCx0Y/RgtCwISDQltC10LvQsNGOINCy0LDQvCDQt9C00L7RgNC+0LLRjNGPLCDRg9GB0L/QtdGF0L7Qsiwg0YfRgtC+0LHRiyDQstGB0LUg0LLQsNGI0Lgg0LbQtdC70LDQvdC40Y8g0LjRgdC/0L7Qu9C90Y/Qu9C40YHRjC4...
AveMartells
24.06.2022 07:30
Найти сумму квадратов всех целых чисел от A до B (значение A и B вводится B =A)Сделать на C#...
Лиро1
29.04.2020 14:22
Кнопка save.PNG называется С её можно сохранить презентацию на любом носителе....
Артем222211
29.04.2020 14:23
Даны четыре целых числа определить сумму произведения и среднее арифметическое этих чисел...
Евридика1
15.03.2020 02:41
17) Для какого наименьшего целого неотрицательного числа A выражение (2m + 3n 40) ∨ ((m A) ∧ (n ≤ A)) тождественно истинно при любых целых неотрицательных m и n?...
vika030620071
15.03.2020 02:40
Написать формулы на место жёлтых ячеек. информатика 9 класс тема: организация вычислений в электронных таблицах - контрольная работа...
Artem22011
15.03.2020 02:37
1)Ученик будет решать задачу по созданию шестиугольника со стороной а в среде програмирования2)Ученик строит блок-схему для своей задаче...
Популярные вопросы
Пример числа,которое после увеличения на 10% будет больше 100,но...
2
Запишите сумму в виде смешанной дроби а) 3+14/17 б) 12+11/23...
3
Формулу оснований, соответствующих указанными na2o...
2
Дана функция y=(5/(x-1))+2. найти y(6) дана функция y=(3/(x-2))+4....
2
Эссе на тему: влияние французской буржуазной революции на декабристов....
2
Проверь истиноость высказывания 9060*405-405350: 670*809 398*(2881440:...
3
Написать сочинение на тему весёлый случай из ! заранее !...
2
Дайте мне, правильную формулу, хлорид меди+ гидроксид калия хлорид...
2
Cos2x=-(корень из 2/2) решите подробно...
2
Определи количество слогов апрель, март, май...
1
s:string[10];
f:Text;
begin
Assign(f,'a.txt'); Reset(f);
Readln(f,s); Close(f);
Writeln(s)
end.
f: text;
s: string;
begin
assign(f,'input.txt');
reset(f);
readln(f,s);
s:=copy(s,1,10);
writeln(s);
close(f);
end.