. На бесконечном поле имеется стена, длины отрезков стены неизвестны. Стена состоит из одного вертикального и трёх горизонтальных отрезков (отрезки стены
расположены буквой «Е»). Все отрезки неизвестной длины. Робот находится в клетке,
расположенной непосредственно над верхней стеной. На рисунке указан один из
возможных расположения стен и Робота (Робот обозначен буквой «»).
Напишите для Робота алгоритм, закрашивающий все клетки, расположенные справа у
вертикальной стены в верхней части буквы «Е». Робот должен закрасить только
клетки, удовлетворяющие данному условию. Например, для приведённого справа
рисунка Робот должен закрасить следующие клетки (см. рисунок).
Конечное расположение Робота может быть произвольным. При исполнении алгоритма
Робот не должен разрушиться. Алгоритм должен решать задачу для произвольного
размера поля и любого допустимого расположения стен ссылка на задание ниже
https://f1.school.mosreg.ru/get.aspx/52/1f26810c2fd74932afab16d26ae59e1e.pdf
ТОМУ КТО ПРАВИЛЬНО И БЫСТРО РЕШИТ НАКИНУ
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.