Если препятствий нет, то
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
нц пока сверху свободно
вверх
кц
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
кон<span>
</span>
1)MS Word - прикладной пакет программ
2)Norton Antivirus - Сервисное ПО
3)Paint - Графический редактор
4)Pascal ABC - Системы программирования
5)Windows-2010 - Системное ПО
6)Антивирусная программа- Сервисное ПО
7)Блокнот - Текстовый редактор (текстовое ПО)
8)Игра "Сапер" - Прикладные программы
9)Клавиатурный тренажер - Прикладные программы
10)Программа Проводник - Инструментальное ПО
11)Проигрыватель Windows Media - Сервисное ПО
12)Электронный словарь - Прикладное ПО
Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>
Program z1;
var a,b,c,P:real;
begin
Writeln('Введите стороны a и b: ');
Write('a = '); read(a);
Write('b = '); read(b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
Writeln('Гипотенуза равна: ',c);
Writeln('Периметр треугольника равен: ',P);
end.