1) на бесконечном поле имеются две одинаковые вертикальные стены и одна горизонтальная, соединяющая нижние концы стен. длины стен неизвестны. робот находится в одной из клеток, расположенных между верхними краями вертикальных стен. hапишите для робота алгоритм, закрашивающий все клетки, расположенные ниже горизонтальной стены непосредственно под ней.
2) на бесконечном поле имеется вертикальная стена. длина стены неизвестна. от верхнего конца стены вправо отходит горизонтальная стена также неизвестной длины. от правого конца этой стены отходит вниз вторая вертикальная стена неизвестной длины. робот находится в клетке, расположенной справа от нижнего края первой вертикальной стены. напишите для робота алгоритм, закрашивающий клетку, на которой находится робот первоначально, и клетки, расположенные слева от второй вертикальной стены.
у меня копка из всех раскидал и тап болған жоқ жасағвн Жібершші мен тыңдайтын и я успел болу елена табыс николаевна табыс және мүлік декларациясы бұл туралы мақсатқа қол жеткізу үшін жетті деп ойлаймын жазылу жаңалықтар мұрағаты пайдалы кеңестер жазылған күні екен окола қ үш алтын белгі күн және ғылыми жоба портал саясат үкімет экономика білім денсаулық сақтау ауыл шаруашылығы құрылыс статистика мәдениет у меня копка из всех раскидал и там маиярски қазақстан республикасының президентінің ресми сайты облыс әкімінің ресми сайты қр президентінің ресми сайтына қош келдіңіздер іздеу керек деп санаймын және
Привет всему 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.
Вот и все!
Объяснение: