Алгоритм конец есть начало и конец
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
A)
F=a*(b+c)+a*b+a*c
F=a*(b+c+b+c)
F=a*(b+c)
б)
F=¬(¬a*b+a*(b+¬c))
F=¬(b*(¬a+a)+a*¬c)
F=¬(b+a*¬c)
F=¬b*¬(a*¬c)
F=¬b*(¬a+c)
в)
F=(¬(A+B)*¬A)→¬B
F=(¬A*¬B*¬A)→¬B
F=¬(A+B)→¬B
F=A+B+¬B
F=1
Var
n, i, m: longint;
s1, s2: string;
l1: integer;
begin
Write('Введите натуральное число: ');
Readln(n);
Writeln('Автоморфные числа:');
for i := 1 to n do
begin
m := sqr(i);
Str(i, s1);
l1 := Length(s1);
Str(m, s2);
if s1 = Copy(s2, Length(s2) - l1 + 1, l1) then Writeln(i)
end
end.
Тестовое решение:
Введите натуральное число: 10000
Автоморфные числа:
1
5
6
25
76
376
625
9376