То что некоторые выполняют задания и слушают на уроки и что некоторые не чего не делают и болтают на уроках
Диск, файл, каталог - это всё элементы файловой системы.
Ответ: 4) Пуск.
Только это не квадрат, с разными сторонами.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ "...\Отделы\Обмен\";
ПЕР
a, b: ЦЕЛ;
УКАЗ
a := 37;
b := 92;
Вывод.ЧЦел("%d^%d", a * b, a * 2 + b * 2, 0, 0)
КОН Задание.
1. -зрение-глаза
2.-слух- уши
3.вкус-язык
4.обоняние- нос (не точно)
надеюсь помогла
Var
a:array[1..1000000]of integer;
i,min,n,c:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if i = 1 then
min:=a[i];
if a[i]<min then
begin
min:=min+a[i] ;
a[i]:=min - a[i];
min:=min - a[i];
c:=i;
end;
end;
writeln('a[',c,']=',min);
end.