Дано вещественное число с двумя цифрами в целой части и одной цифрой в дробной части. Получить вещественное число, запись которого являлась бы зеркальным отображением исходного числа (например, 36.2 и 2.63).
Ответы
Ответ дал:
0
var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
Приложения:
![](https://st.uroker.com/files/968/9684170821771c79886979cb363539ec.png)
Ответ дал:
0
Фу ... писать в PascalABC.NET, используя синтаксис Турбо Паскаль (((
Ответ дал:
0
Ну, я не знаю что там у вопрошающего, поэтому стараюсь попроще ) Да я собственно, не так много знаю нового. Разве что убрал бы область определения переменных наверное.
Ответ дал:
0
И я не знаю, поэтому если ничего не сказано, пишу покороче))
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
begin
$'{ReadReal:00.0}'.Inverse.Println
end.
16.9
9.61
Приложения:
![](https://st.uroker.com/files/968/9684170821771c79886979cb363539ec.png)
Ответ дал:
0
Почитайте в справке по .NET про интерполированные строки
Ответ дал:
0
Хорошо, я почитаю. Я в общем то по справке сам и разбираюсь, да по примерам решений других людей.
Ответ дал:
0
Примеров полно в справочной системе и на официальном сайте 7 презентаций...
Ответ дал:
0
Да, я немного смотрел презентации. Полностью со всем ознакомится у меня думаю вряд ли получится. Возможности просто огромные заложены. Это надо постоянно работать с Паскалем. Я же больше для себя разбираюсь, когда есть время. Если получится здесь помочь кому то решением- и то хорошо )
Ответ дал:
0
Это каждый должен для себя сам решать - какие языки изучать, в каком объеме и для чего.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад