Только один вариант дает положительный результат. Когда первая цифра числа и третья равны 1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a:integer;
begin
write('Введите число ');readln(a);
if ((a div 1000)=1)and ((a div 10 mod 10)*(a div 10 mod 10)= 1)then
writeln('квадрат первой цифры равен кубу третьей цифры этого числа')
else
writeln('квадрат первой цифры не равен кубу третьей цифры этого числа')
end.
Тест №1
Введите число 1214
квадрат первой цифры равен кубу третьей цифры этого числа
Тест №2
Введите число 2237
квадрат первой цифры не равен кубу третьей цифры этого числа
Using System;
namespace ConsoleApp0{ class Program { static void Main(string[] args) { int a = int.Parse(Console.ReadLine()), b = int.Parse(Console.ReadLine()); if (a % b == 0 || b % a == 0) Console.WriteLine("Делится"); else Console.WriteLine("Не делится"); Console.ReadKey(true); } }}
Var s: string;
<span>begin
</span><span> readln(s);
</span><span> writeln(s.ToWords.Sorted.JoinIntoString(' '));
</span><span>end.
</span>это строка для проверки
<span>для проверки строка это
</span>
256=2^8, поэтому для представления цвета пикселя достаточно 8 бит. Но кроме этого, монитору надо указывать координаты пикселя, так что на самом деле пиксель будет занимать больше, чем 8 бит)))
Было - 6,8, при перемещении стало - 6. Ответ: 3 (0,8)