Var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.
{
Код программы и скриншот работы в приложениях
Написано на PascalABC.NET
}
Алгоритм:
Найти 1й элемент строки и записать его в поле i,j ,затем сравнивать все последующие значения той строки с этой переменной.
Uses Crt;
var
x,y:real;
begin
Write('Vvedite x,y: ');
Read(x,y);
Writeln((x>1) and (x<7) and (y>6) and (y<8) or
(x>3) and (x<5) and (y>2) and (y<6));
ReadKey
end.
Рабочий стол, панель задач, главное меню (или "Пуск"), к<span>онтекстное меню(когда ПКМ нажимаешь на файле или просто на пустом месте рабочего стола)</span>