Ах, вот оно как... то есть одинокая цифра в окружении отличных от нее - тоже "серия"... Странно, ну да ладно.
Теперь по задачам. Я бы мог Вам помочь - но, увы, с одной оговоркой: я пишу программы только на нормальном Паскале (Turbo, Free, Borland) а этого "изделия №2" под названием АВС у меня никогда не было и не будет, а потому не знаю, пойдут ли мои программы на нем. Вот, например:
Цитата:
Сообщение от Евгений1240
File1.Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False.
|
На Free (да и Turbo) это может быть решено, скажем, так:
Код:
Var
f:Text;
S:String;
Begin
{$I-}
Writeln('Enter the string:');
Readln(S);
Assign(f,S);
Rewrite(f);
Writeln(IOResult=0);
Readln
End.
А вот понимает ли АВС указания типа {$I-} и есть ли у него функция IOResult, или эти придурки-авторы чего-то взамен своё напихали - не знаю.