Только один вариант дает положительный результат. Когда первая цифра числа и третья равны 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 квадрат первой цифры не равен кубу третьей цифры этого числа
1. Мультимедийные презентации позволяют подавать информацию, используя абсолютно все представления информации (видео, аудио, текст, графика,таблицы, диаграммы, гиперссылки), что значительно повышает информативность таких презентаций для целевой аудитории. 2. Пакет Microsoft Office, в который входит этот текстовый процессор, уже очень давно представлен на рынке IT технологий, хорошо знаком пользователю, и в принципе дает самые большие возможности, по сравнению с другими текстовыми процессорами, по обработке текстовой информации. 3. Сервера, настольный компьютер, ноутбук, моноблок, планшет, минибук. Отличия - в целях, для которых они используются. Кто-то хочет просто выйти в Интернет, а кому-то необходим мощный процессор для работы с видео и т.д. 4. Apple украли графический интерфейс у Xerox.
uses crt;
Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;
Begin
N:=5;
Writeln('Введите элементы матрицы');
for i:=1 to N do
for j:=1 to N do
readln(mas[i,j]);
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;
{Объмен}
for j:=1 to N do
Begin
buf:=mas[N,j];
mas[N,j]:=mas[1,j];
mas[1,j]:=buf
end;
Writeln();
Writeln('Результирующая матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;
readln;
end.