Алгоритм работает, если верхние края стен расположены на одном уровне:
использовать Робот
алг
нач
нц пока справа стена
закрасить
вверх
кц
нц пока справа свободно
вправо
кц
вниз
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вниз
кц
кон
Ответ:
5б:
x = input("введите число: ")
y = ""
for i in range(len(x)):
y += (x[-i])
if x==y:
print ("Перевертыш")
else:
print ("Нет")
_________________________________________________
6:
x1 = int(input("x1: "))
y1 = int(input("y1: "))
x2 = int(input("x2: "))
y2 = int(input("y2: "))
R1 = (x1**2 + y2**2)**(0.5)
R2 = (x2**2 + y2**2)**(0.5)
if R1 > R2:
print ("2 ближе")
elif R2>R1:
print ("1 ближе")
else:
print("одинаково")
_____________________________________________
7:
a = int(input("1 сторона: "))
b = int(input("2 сторона: "))
c = int(input("3 сторона: "))
if (a>=b+c) or (b>=a+c) or (c>=b+a):
print("не существует")
elif a==b and b==c:
print ("Равносторонний")
elif a==b or b==c or a==c:
print ("Равнобедренный")
else:
print("Существует")
Объяснение:
Там все понятно
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.