Только один вариант дает положительный результат. Когда первая цифра числа и третья равны 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 квадрат первой цифры не равен кубу третьей цифры этого числа
N - количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число! program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin read(x); if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.
Комп'ютер это сложный организм за которым нужно присматривать и следить за компонентами в особенности за кулерами,непонятно почему именно за ними сечас обьясню.кулер охлаждает важние детали такие как блок питания,процесор,видео карта которые при нагреве могут воспламенится или припой может потечь и всей системе может прийти срок или может испортится блок питания который питает систему,процессор который обрабатывает информацию,видео карту которая выводит и обрабатывает видео сигналы.но нерекомендуется пользоватся водным охлаждением или в народе их называют водянками потому-что вода может потечь на детали и к короткому замыканию! и нужно иметь антивирусную програму для защиты данных.
//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
квадрат первой цифры не равен кубу третьей цифры этого числа