Написать программу получения обратной записи 4 значного числа введенного с клавиатуры

Question

Написать программу получения обратной записи 4 значного числа введенного с клавиатуры

Comments

var s:string;i,n:integer;beginwriteln ('Vvedite chislo');readln (s);n:=length(s);writeln ('Obatnoe chislo');for i:=n downto 1 dowrite (s[i]);end.

---

хм..разрешите вопрос, что ето за функция length(s)?

---

длина строки

---

Указывай язык программирования хотя бы или пиши что тебе без разницы

---

тоесть ты число сделал строковой переменной? ГЕНИАЛЬНО

Answer 1

Var a,b,c,d,e:integer;
begin
writeln('введите четырёхзначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
write(b);
c:=a mod 10;
a:=a div 10;
write(c);
d:=a mod 10;
write(d);
a:=a div 10;
write(a);
end.

Answer 2

// F#

open System;
[]
let main argv =
    let rec getNumberFromConsole _ =
        printf "Please enter a correct 4-digits number?\n"
        let maybeInt = Console.ReadLine();
        let mutable value = 0;
        if Int32.TryParse(maybeInt, &value) && value >= 1000 && value <= 9999<br>            then value
            else (getNumberFromConsole null)
    let rec power = function
        | (x, 0) -> 1
        | (x, n) -> x * power (x, n-1)
    let getDigit sourceNumber digit =
         (sourceNumber / (power (10, digit))) % 10
    let number = getNumberFromConsole null
    let resultNumber = getDigit number 0 * 1000 + getDigit number 1 * 100 + getDigit number 2 * 10 + getDigit number 3
    printf "%d" resultNumber
    Console.ReadKey true |> ignore
    0

Comments

чито ето?

---

Это F#, сам в шоке О_О

---

это как я понял что то близкое к c-овским языкам?

---

а, нет не похож

---

Это функциональный язык на платформе .NET, заимствует он много принципов из других функциональных языков, но для совместимости приходиться еще и императивный стиль поддерживать