НОМЕР ОДИН
РИСУНОК 1 :
использовать Робот
алг
нач
нц пока слева не свободно
закрасить
вниз
кц
кон
РИСУНОК 2 :
использовать Робот
алг
нач
нц пока слева не свободно
закрасить
вниз
кц
закрасить
влево
закрасить
вверх
нц пока справа не свободно
закрасить
вверх
кц
кон
РИСУНОК 3:
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
закрасить
вправо
нц пока сверху не свободно
закрасить
вправо
кц
кон
РИСУНОК 4
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
кон
ЗАДАНИЕ НОМЕР 2
использовать Робот
алг
нач
нц пока справа свободно
закрасить
вправо
кц
закрасить
кон
ЗАДАНИЕ НОМЕР 3
использовать Робот
алг
нач
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
кон
program asd;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a); readln(b); readln(c);
if (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;
end.
A := 10;
b := 6;
a := a + b; //a=16 , b=6
b := a mod 3; //a=16, b=1
<span>d := a - b; //d=16-1=<u>15</u></span>
Начало
|
введите значения катетов
|
ввод a,b
|
g:=sqrt(a*a+b*b)
|
вывод g
|
конец
Число дано в миллиардных, а не миллионных. А перевести можно через клик прав. клав. мыши на ячейку с этим числом , формат ячеек, числовой, число десятичных знаков, если я конечно правильно понял т.к вынос мозга из-за некорректной формулировки задачи.