|
|
|
|
|
|
|
Вернуться
| 1 Мистер Питкин, 21 декабря 2018 г. 19:54:43 | |
var
s : ansistring;
begin
readln(s);
writeln(s);
end.
|
|
|
| 2 Беляев Сергей Николаевич, 21 декабря 2018 г. 13:28:59 | |
|
На этом сайте решения на Free Pascal компилируются в режиме "делфи" (ключ -Mdelphi), это означает, что длины строк могут быть большими и ограничиваются лишь оперативной памятью.
|
|
|
| 3 Бородовский Андрей Арександрович, 21 декабря 2018 г. 13:27:35 | |
делаю так
var
q: array[1..1000000] of char;
t1: text;
length:integer;
assign(t1, 'input.txt');
reset(t1);
repeat
inc(length);
read(t1, q[length]);
until (eof(t1));
close(t1);
|
|
|
| 4 Бородовский Андрей Арександрович, 21 декабря 2018 г. 13:26:13 | |
|
помогите очень прошу
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
