Ответы на вопрос:
Язык не указан → приведу пример на SWI-Prolog.
Код%Файл string_sortin.plsort([], [], _).sort([Head|Tail], Ordered, Qrd) :- sort(Tail, SubSorted, Qrd), put(Head, SubSorted, Sorted), order(Sorted, [], Ordered, Qrd).put(X, [], [X]).put(X, [H|T], [X,H|T]) :- compare(>, X, H).put(X, [H|T], [H|R]) :- put(X, T, R).order(X, _, X, ">").order([], R, R, "<").order([H|T], B, R, "<") :- order(T, [H|B], R, "<").select(">", Bufer, Bufer, _, ">").select("<", Bufer, Bufer, _, "<").select(S, Bufer, [S|Bufer], Ord, Ord).input_strings(Input, Bufer, Strings, Ord, ROrd) :- compare(=, Ord, "="), read_string(Input, "\n", "\r", _, String), select(String, Bufer, SS, Ord, OO), input_strings(Input, SS, Strings, OO, ROrd).input_strings(_, Strings, Strings, Ord, Ord). ?- current_input(Input), input_strings(Input, [], Strings, "=", Ord), sort(Strings, [R|_], Ord), writeln(R).
Microsoft qbasic 1.0 cls s = 0 for i = 1 to 31 step 2 s = s + i ^ 2 next i print s будет выведено значение 5456
Популярно: Информатика
-
клубничка18816.08.2020 22:50
-
Пусик9509.08.2020 14:30
-
Selid09.08.2022 08:41
-
mira13317.05.2022 01:21
-
Tto203608.08.2021 20:48
-
DENZYSUPER08.02.2021 13:51
-
lonelynightly17.09.2020 23:30
-
пепа2410.01.2022 11:57
-
bviktoria456704.06.2023 07:22
-
AliceAngelCat12328.03.2022 12:28