var
str, charQ: string;
begin
str:="Строка";
charQ := Copy(str, 7, 1);
end;
Program test ;
Var
a:integer;
Begin
For i:=0 to 9 do begin
For i1:=0 to 9 do begin
For i2:=0 to 9 do begin
If (i<>i1) and (i1<>i2) and (i<>i2) then begin
writeln(" Комбинация введенная агентом 007 - ",i*100+i1*10+i2);
a:=a+2;
End;
End;
End;
Writeln(" В ХУДШЕМ случае он затратит на подбор пароля. ", a div 60,"мин. ",a mod 60,"сек. ") ;
End.
Карта города представляет город
Структура документа (в Word) представляет документ
Схема этажа для эвакуации представляет этаж здания
Содержание книги представляет книгу
Герб государства представляет дух и идею этого государства