СРОЧНО!!
Дано натуральное трехзначное число. Напишите программу, которая определяет:​

Program pr1(output);var a:integer;begin write('a = '); read(a); if a mod 10 = a div 100 Then write('Есть одинаковые числа') else if a mod 10 = a div 10 mod 10 Then write('Есть одинаковые числа') else if a div 100 = a div 10 mod 10 Then write('Есть одинаковые числа')else write('Одинаковых чисел нет');end.Или лучше так

хорошо, спасибо

Program pr2(output);var a:integer;begin write('a = '); read(a);if a div 100 = a mod 10 Then write('Данное число перевёртыш')else write('Данное числе не перевёртыш');end.Вот б)

Ответ: program y;  

var a,b,c: real;  

begin  

a:=1/2;  

b:=1/4;  

c:=a+b;  

writeln(c);  

end.

Объяснение:

Ответ:

Вот те короче на Паскаль

Объяснение:

Это а) Если это то, что тебе нужно, то внизу б) скину

Program pr1(output);

var a:integer;

begin

   write('a = ');

   read(a);

if a mod 10 = a div 100 Then

   write('Есть одинаковые числа');

if a mod 10 = a div 10 mod 10 Then

write('Есть одинаковые числа');

if a div 100  = a div 10 mod 10 Then

write('Есть одинаковые числа');

end.