<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var sk:=ReadAllText('koi8.txt'); var a:=ReadlnString.ToWords; foreach var w in a do begin var p:=Pos(w,sk); if p>0 then begin p:=Pos(' ',sk,p+1); if p>0 then Write(sk[p+1]) else Write('?') end else Write('?') end; Writeln end.
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
N ⵗ 9 <span>ⵗ 3 Где N - число N </span>ⵗ 9 - число кратно (делится нацело, без остатка) на 9. N ⵗ 9 <span>ⵗ 3 - число кратно 9 и 3, то есть чтобы оно делилось на 3, достаточно чтобы оно делилось на 9.