File1. Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | program File1; var S:String; F: File; begin Write('S: '); Readln(S); Assign(F,S); {$I-} ReWrite(F); {$I+} if IOResult=0 then begin Writeln(TRUE); Close(F); end else Writeln(FALSE); end. |
klerr3j4oi
program file1;
var
f1:file;
s:string;
begin
readln(s);
{$I-}
assign(f1,s);
rewrite(f1);
if IOResult0 then
begin
writeln(‘FALSE’);
end
else writeln(‘TRUE’);
close (f1);
end.
Чудесно. Даже на С нету решение
неизвестное имя ‘IOResult’
Бмбр бе номус)