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

Ответ:

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

Разъяснение:

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

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.

Ответ: program y;  

var a,b,c: real;  

begin  

a:=1/2;  

b:=1/4;  

c:=a+b;  

writeln(c);  

end.

Изъяснение: