Установите соответствие между именами файлов и соответствующими им компьютерными объектами, для каждогой имени файлабуквы из левого столбцика подберите соответствующийую компьютерный объектцифру из правого столбцика.
12345
help.avi
12345
game.exe
12345
paint.doc
12345
word.bmp
12345
mus.mp3
1
графический файл
2
текстовый файл
3
звуковой файл
4
видеофайл
5
исполняемый файл
Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение: