30 1. у исполнителя делитель две команды, которым присвоены номера: 1. раздели на 2 2. прибавь 1 первая из них уменьшает число на экране в 2 раза, вторая увеличивает его на 1. исполнитель работает только с натуральными числами. составьте алгоритм получения из числа 23 числа 4, содержащий не более 5 команд. в ответе запишите только номера команд. (например, 11222 — это алгоритм: раздели на 2, раздели на 2, прибавь 1, прибавь 1, прибавь 1, который преобразует число 36 в 12.) если таких алгоритмов более одного, то запишите любой из них. 2. у исполнителя квадратор две команды, которым присвоены номера: 1. прибавь 3 2. возведи в квадрат первая из них увеличивает число на экране на 3, вторая возводит его во вторую степень. исполнитель работает только с натуральными числами. составьте алгоритм получения из числа 4 числа 58, содержащий не более 5 команд. в ответе запишите только номера команд. (например, 22111 — это алгоритм: возведи в квадрат возведи в квадрат прибавь 3 прибавь 3 прибавь 3, который преобразует число 3 в 90). если таких алгоритмов более одного, то запишите любой из них. 3. у исполнителя квадратор две команды, которым присвоены номера: 1. прибавь 3 2. возведи в квадрат первая из них увеличивает число на экране на 3, вторая возводит его во вторую степень. исполнитель работает только с натуральными числами. составьте алгоритм получения из числа 6 числа 48, содержащий не более 5 команд. в ответе запишите только номера команд. (например, 11211 — это алгоритм: прибавь 3, прибавь 3, возведи в квадрат, прибавь 3, прибавь 3, который преобразует число 4 в 106.) если таких алгоритмов более одного, то запишите любой из них.

👇

Ответ:

манукостуй

16.09.2021

Задание №1
ответ: 11222
[36/2=18/2=9+1+1+1=12]

Задание №2
ответ: 12111
[4+3=7*7=49+3=52+3=55+3=58]

Задание №3
ответ: 21111
[6^2=36+3=39+3=42+3=45+3=48]

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

Открыть все ответы

Ответ:

alekseyblohinov

16.09.2021

Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
$\displaystyle L_{AB}=\sqrt{(x_B-x_A)^2+(y_B-y_A)^2$

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;

procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;

function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.

Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует

4,7(40 оценок)

Ответ:

SuperMine

16.09.2021

//Pascal ABC.NET v3.0 сборка 1111

Const
s=5;

Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8

//Блок-схема во вложении
Ввести двумерный массив a. все элементы, которые при целочисленном делении на n ненулевое значение,