Ответы на вопрос:
//pascalabc.net 3.2, старой версии нет, не могу проверить begin var a: biginteger : = 1; for var i : = 1 to readinteger do a *= i; write(a) end.
Популярно: Информатика
-
Вдвумерном массиве z[1..5,1..5] найти наименьший элемент среди элементов...
aksinaa917.09.2021 15:01 -
Дан массив из n элементов . каждый элемент равен 0, 1 или 2. переставить...
kristushaushakova23.01.2020 02:04 -
Валгоритме, записанном ниже, исп-ются действительные переменные a и b....
AbashkinaEvgenia9810.03.2021 14:31 -
9кл, информатика, исполнитель чертёжник перемещается на координатной плоскости,...
bekarys306.01.2023 17:13 -
Чому дорівнює S після виконання фрагмента програми: Var і:Integer; A,S:Real;...
адамчик229.05.2021 05:13 -
Яка властивість відповідає за форму автофігури? * Shape Pen.Color Width...
66622326.05.2023 08:07 -
Массив А размером 10 заполняется случайными целыми числами из интервала...
katiaefimova28.10.2022 13:51 -
Написать программу, которая вычислит площадь трапеции, по введенным основаниям...
нури4322.11.2020 23:21 -
: С кодовой таблицы ASCII декодируйте слова, заданные десятичными и двоичными...
pinelopa200518.02.2023 20:07 -
A:=1, b:=1 While a =32 do a:=a*2, b:=b*a Write (b) ...
lexazykov2001424.04.2020 15:15