1. составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. 2. дано двузначное число. определить кратна ли трем сумма его цифр. 3. известен рост трех человек. определить, одинаков ли он.

1) var a: string;     i, o: integer;     p: real; begin       readln(o);       a : = inttostr(o);       for i : = 1 to length(a) do         p : = p + strtoint(a[i]);       if (sqr(o) = p*p*p) then writeln('true')         else writeln('false'); end.2)var a: string;     i, o, p: integer; begin      readln(o);       a : = inttostr(o);       for i : = 1 to length(a) do        p : = p + strtoint(a[i]);       if (p mod 3 = 0) then writeln('true')        else writeln('false'); end.3)var a, b, c: real; begin      readln(a, b, c);       if ((a = b) and (b = c)) then writeln('true')        else writeln('false'); end.всё проверено, удачи: )

Чтобы решить эту задачу, сначала разделим полученные числа на две части, при это надо учесть, что числа стоят в порядке неубывания:

1616 -> 16 и 16, 169 -> 1 и 69, 163 -> 1 и 63, 1916 -> 1 и 916, 1619 -> 16 и 19, 316 -> 3 и 16

Теперь необходимо убрать все числа, которые точно не смогут получиться.

Выясним, какое максимальное число может получиться, если сложить два разряда (неважно, старший и средний, или средний и младший).

9 + 9 = 18 - максимально возможное число.

Оставим все числа, в которых слагаемые меньше или равны 18:

1616 -> 16 и 16, 316 -> 3 и 16

Попробуем подобрать числа, из которых они были получены.

1616 -> 16 и 16 -> 888 (8 + 8 = 16, 8 + 8 = 16) - подходит

316 -> 3 и 16 -> такое число подобрать не получится, потому что между 3 и 16 большая разница и исходного числа не существует.

ответ: 1 число (1616)

Задание 1

Для получения корня между и n = 1.

Задние 2

nh = A div C - количество квадратов умещающихся по-вертикали

nw = B div C - количество квадратов умещающихся по-горизонтали

n = nh * nw = общее количество квадратов.

Sr = A * B - 2*C*C

Код:

using System;namespace ThisAnswerIsNotMine {    class Program    {        private static void Eq(double a)        {            var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI;            Console.WriteLine($"Для a = {a}, x = {x}");        }                private static void Squares(int A, int B, int C)        {            int nh = A / C;            int nw = B / C;            int n = nh * nw;            int Sr = A * B - 2*C*C;                        Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}");            Console.WriteLine($"Площадь оставшегося куска {Sr}");        }        private static void Main()        {            Eq(double.Parse(Console.ReadLine()!));            Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!));        }    }}