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

Question

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

---

Comments

Язык пожалуйста

---

что?

---

На каком языке программу нужно?

---

на английском, как обычно

---

ор

---

Какой нах английский? Язык программирования какой?

---

ой соррямба

---

Паскаль

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.

Comments

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.Вот б)