1. В каталоге находятся файлы со следующими именами:
file.mdb file.mp3
ilona.mpg pile.mpg
miles.mp3 nil.mpeg
Определите, по какой из масок будет выбрана указанная группа файлов:
file.mp3
pile.mpg
miles.mp3
nil.mpeg
a) ?il*.mp?
b) ?il*.m*
c) ?il.mp
d) *il?.mp*
2. В состав вычислительной машины обязательно должны входить:
a) блок защиты от перепадов электричества
b) блок управления
c) блок памяти
d) блок вывода/ввода информации
e) блок обработки данных
f) блок защиты от взлома
3. Что из предложенного можно считать полным именем файла?
a) C:\log\ljfgh.txt
b) A:\D:\ghjuk.kc
c) B:GG\NUL.DOC
d) kdftg.txt
Var
n,n1,n2,n3,n4,i,Armst:integer;
Begin
Write('Введите n: '); readln(n);
Write('Числа Армстронга для n=',n,': ');
if n=3 then
for i:=100 to 999 do begin
n1:=i div 100;
n2:=i mod 100 div 10;
n3:=i mod 10;
Armst:=(n1*n1*n1)+(n2*n2*n2)+(n3*n3*n3);
if Armst = i then write(Armst,' ');
end;
if n=4 then
for i:=1000 to 9999 do begin
n1:=i div 1000;
n2:=i div 100 mod 10;
n3:=i mod 100 div 10;
n4:=i mod 10;
Armst:=(n1*n1*n1*n1)+(n2*n2*n2*n2)+(n3*n3*n3*n3)+(n4*n4*n4*n4);
if Armst = i then write(Armst,' ');
end;
Writeln;
Readkey;
End.
Пример - символ перевода строки если два таких символа поменять местами - не изменится ничего, а если поменять его местами с пробелом, переход на новую строку будет в другом месте, что для текста программы может оказаться критичным, а может никак не сказаться.
Перестановка значимых символов вносит в текст искажения. Насколько они критичны определяется в каждом случае отдельно.