СРОЧНО!!
Дано натуральное трехзначное число. Напишите программу, которая определяет:
Приложения:
![](https://st.uroker.com/files/865/865073958c19b4cad2afd41cd96574f9.jpg)
Ответы
Ответ дал:
0
Ответ: program y;
var a,b,c: real;
begin
a:=1/2;
b:=1/4;
c:=a+b;
writeln(c);
end.
Объяснение:
Ответ дал:
0
Ответ:
Вот те короче на Паскаль
Объяснение:
Это а) Если это то, что тебе нужно, то внизу б) скину
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.
Ответ дал:
0
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.
Или лучше так
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.
Или лучше так
Ответ дал:
0
хорошо, спасибо
Ответ дал:
0
Program pr2(output);
var a:integer;
begin
write('a = ');
read(a);
if a div 100 = a mod 10 Then
write('Данное число перевёртыш')
else
write('Данное числе не перевёртыш');
end.
Вот б)
var a:integer;
begin
write('a = ');
read(a);
if a div 100 = a mod 10 Then
write('Данное число перевёртыш')
else
write('Данное числе не перевёртыш');
end.
Вот б)
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад