НОМЕР ОДИН
РИСУНОК 1 :
использовать Робот
алг
нач
нц пока слева не свободно
закрасить
вниз
кц
кон
РИСУНОК 2 :
использовать Робот
алг
нач
нц пока слева не свободно
закрасить
вниз
кц
закрасить
влево
закрасить
вверх
нц пока справа не свободно
закрасить
вверх
кц
кон
РИСУНОК 3:
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
закрасить
вправо
нц пока сверху не свободно
закрасить
вправо
кц
кон
РИСУНОК 4
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
кон
ЗАДАНИЕ НОМЕР 2
использовать Робот
алг
нач
нц пока справа свободно
закрасить
вправо
кц
закрасить
кон
ЗАДАНИЕ НОМЕР 3
использовать Робот
алг
нач
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
кон
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
<h3>А еще это можно решить, к примеру, так:</h3>
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
1.
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.
Пример:
Исходный массив:
<span>18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24
</span>
2.
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.
Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3
Получается слово МОТОР. Там не тюлень, а морж нарисован на картинке