cska2003
13.12.2021 22:14

Решать на pascalabc имеется текстовый файл. напечатать первые 10 символов файла.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ЯтвойНос
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.
0,0(0 оценок)
Ответ:
krevisdons
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота