1. Информатика
  2. Написать программу ,

Написать программу , которая подсчитывает произведение натуральных чисел от 1 до n .

ryzhovaelena1 ryzhovaelena1    3   17.09.2019 00:40    3

Ответы
Ниа15082006 Ниа15082006  07.10.2020 20:50
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,ReadInteger('n=')).Aggregate(Real(1),(x,y)->x*y));
end.
ПОКАЗАТЬ ОТВЕТЫ
Aminka555112 Aminka555112  07.10.2020 20:50
Var
  i, n: integer;
  P: real;
Begin
  Write('n = ');
  ReadLn(n);
  P := 1;
  For i := 1 to N do
    P := P * i;
  WriteLn('P = ',P);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Pixelia Pixelia  31.08.2019 02:40
Сколько ошибок допущено во фрагменте программы, склеивающей две строки s1: = жили у бабуси s2: = два веселых гуся; s3=s1+s2; writ (s3);...
ирбиз ирбиз  11.12.2020 16:51
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 55 символов в этой кодировке. ответ: байтов....
surok0902p01m1w surok0902p01m1w  25.07.2019 11:20
Текст, набранный на компьютере, содержит 12 страниц. половина из этих страниц набрана так, что на каждой странице 48 строк, в каждой строке по 64 символа. другая половина...
влад2299 влад2299  20.06.2020 12:54
Определить значения квадратного уравнения 7x^2−26x+28 на отрезке [-1;1] с шагом 0,1 и построить график функции, используя табличный процессор....
fheeubeujdshebj fheeubeujdshebj  20.06.2020 12:55
Напишите операторы на языке Pascal для нахождения каждой цифры трёхзначного числа x=a1a2a3​...
tonkikhliza tonkikhliza  15.04.2021 10:29
Python нужно доработать мой код. Измените предыдущую задачу так, чтобы пользователь мог вводить любые символы, а программа записывала бы их в файл. Происходить это должно...
Dimaplayfifa1611 Dimaplayfifa1611  15.04.2021 10:29
Цифровые носители информации. Урок 2 все ответы​...
mayakmaria mayakmaria  02.10.2019 08:40
Написати твір на тему що таке справжня краса обсяг - пів сторінки план : 1. вступна частина 2. основна частина 3. висновок (мені здається що, я вважаю що.)...
7777kby777777777778 7777kby777777777778  02.10.2019 08:40
Развитие лягушки(жабы) происходит с метаморфозой.как можно остановить этот процесс? ,расскажите подробно об этих методах.!...
tatyankasas tatyankasas  02.10.2019 08:40
Влияние электронной сигареты и героина(наркотик) на организм человека, а именно на: сердечно сосудистую систему дыхательная пищеварительную (печень,почки) нервную....

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