М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
murzyeva1970
murzyeva1970
09.12.2021 07:14 •  Информатика

Составьте, , программы для робота в кумире на 2 . ​

👇
Ответ:

задание 1:

использовать Робот

алг

нач

цел с=0

нц

вверх

если слева стена то закрасить; с:=1 всё

кц при с=1 и слева свободно

нц пока снизу свободно

если слева стена то с:=1 иначе с:=0 всё

вниз

если с=1 и слева стена то закрасить всё

кц

нц

если снизу свободно то с:=0 всё

вправо

если снизу стена то

закрасить

если с=0 то с:=2 всё

всё

кц при с=2 и снизу свободно

кон

задание 2:

использовать Робот

алг

нач

цел с=0

нц

влево

если сверху стена то закрасить; с:=1 всё

кц при с=1 и сверху свободно

нц пока справа свободно

если сверху стена то с:=1 иначе с:=0 всё

вправо

если с=1 и сверху стена то закрасить всё

кц

нц

если справа свободно то с:=0 всё

вниз

если справа стена то

закрасить

если с=0 то с:=2 всё

всё

кц при с=2 и справа свободно

кон


Составьте, , программы для робота в кумире на 2 . ​
Составьте, , программы для робота в кумире на 2 . ​
4,6(31 оценок)
Открыть все ответы
Ответ:
Ghostremel
Ghostremel
09.12.2021

var a:array[1..250] of string; size:real; i,n:integer; text:string;

begin

   writeln('daite N'); readln(n);

   for i:=1 to n do

     begin

        readln(size);

        if (size>1024) or (size=1024) then

            begin

               size:=size/1024;

               str(size:0:2,text);

               a[i]:=text+' kb';

               text:=''; size:=0;

            end else

         begin

              str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;

         end;

      end;

  for i:=1 to n do write(a[i],' '); readln;

end.

4,6(85 оценок)
Ответ:
kholdingmedia
kholdingmedia
09.12.2021

Если нужны объяснения то пиши в личку)


Program zada4a;
var
i,x,n: integer;
a: array [1..100] of integer;
begin
n:=0;

write('Введите x - ');
readln(x);
for i:=1 to 5 do   - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную.
begin
 a[i]:=random(21);  -это строчка озночает, что задаются числа интервалом от 0 до 20.
write(a[i]:5);
end;
writeln;
for i:=1 to 5 do
begin
if x=a[i] then
begin
writeln('Элемент в массиве равный ',x,' находится под номером - ',i);
n:=n+1;
end;
end;
if n=0 then
write('Элемент c таким значением отсутствоет');
end.

4,5(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ