Программа кумир. не могу найти ошибку в программе рисования узора использовать робот алг нач нц 4 раз нц 2 раз нц 2 раз закрасить вправо кц закрасить влево вверх закрасить вверх закрасить вправо закрасить нц 2 раз влево кц закрасить нц 2 раз вверх кц кц нц 8 раз вниз кц нц 4 раз вправо кц кц влево кон

299

372

Посмотреть ответы 2

Ответы на вопрос:

motya10432

Информатика

4,4(24 оценок)

Если правильно поняла узор, то у меня вот так получилось (у меня по умолчанию робот находится в левом верхнем углу): использовать роботалг нач нц 2 раз нц 4 раз нц 3 раз закрасить вправо кц нц 2 раз влево кц нц 2 раз вниз закрасить кц влево нц 3 раз закрасить вправо кц нц 2 раз вверх кц вправо кц нц 4 раз вниз кц нц 16 раз влево кц кц кон

marien2

Информатика

4,8(2 оценок)

Program task; const n = 5; var a: array [1..n] of longint; i: integer; function mindigit(number: longint): integer; var digits: array of integer; num, min, i: integer; begin num : = number; while num < > 0 do begin num : = num div 10; i : = i + 1; end; setlength(digits, i); num : = number; for i : = 0 to length(digits) - 1 do begin digits[i] : = num mod 10; num : = num div 10; end; for i : = 0 to length(digits) - 1 do if digits[i] < digits[min] then min : = i; result : = digits[min]; end; begin writeln('введите ', n, ' целых чисел через пробел'); for i : = 1 to n do read(a[i]); for i : = 1 to n do write(mindigit(a[i]), ' '); end.