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.

Answer 3

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.
Или лучше так

Answer 4

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

Answer 5

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