Question

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

Answer 1

ответ: program y;  

var a,b,c: real;  

begin  

a:=1/2;  

b:=1/4;  

c:=a+b;  

writeln(c);  

end.

Объяснение:

Answer 2

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

Объяснение:

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

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.