Program n1;
Uses CRT;
Var a: string;
begin
a:='информатика';
delete(a,1,2); delete(a,6,4);
writeln(a);
readln
end.
Грузовой автомобиль проехал большее расторжение
ответ: грузовой
Не уверена
1 символ=8бит=8байт
1 пароль= 8Б*12=96Б
50паролей=96Б*50=4800Бт=4800/1024кБ=4,6875кБ≈5кБ
Const n=10;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
s,i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if i=j then b[i]:=a[i,j];
end;
for i:=1 to n do
write(b[i],' ');
<span>end.</span>
Различают следующие типы меню:
по исполнению:
текстовое,
графическое;
по функциям:
главное меню приложения;
всплывающее меню;
контекстное меню;
системное меню.