arammejlumyan
?>

Написать программу паскаль, вычислить произведение P=1*2*3*...*100​

Информатика

Ответы

Tadevosyan

Язык не указан → приведу пример на 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).
Язык мой Пример 2 Ввод Вывод Язык мой Враг мой < Враг мой
Язык мой Пример 2 Ввод Вывод Язык мой Враг мой < Враг мой
Язык мой Пример 2 Ввод Вывод Язык мой Враг мой < Враг мой
yuliyaminullina

Плюсы:

1)Специально разработанные  программы оказывают в обработке файлов и документов

2)В  сети также можно воспользоваться необходимыми для учёбы доп. материалами.

3) всю необходимую инфу можно найти благодаря одному нажатию клавиши

4)социальные сети - знакомства - бесплатные электронные письма - независимо в какой стране находишся

Минусы:

1)Компьютерная сеть  затягивает человека в виртуальный мир, лишая его живого общения.

2)общения человека с компьютером – это ухудшение здоровья как психического, так и физического.

3)Человеку просто следует ограничивать себя в этом занятии

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу паскаль, вычислить произведение P=1*2*3*...*100​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mikchaylovaalex
didizain
Nikolaevna Malika1511
sastakhova
subbotinlan
Lomakina-Valerievna1779
Boss5519
skyey
yulyazhdan
sanhimki47
ali13zakup5064
donliolik
zdl2008
filial2450
kronid12