1. Информатика
  2. Найти произведение чисел

Найти произведение чисел k*(k+1)*(k+2)**2k в turbo

aodemidov aodemidov    1   16.06.2019 00:50    0

Ответы
bkdekvrfasus bkdekvrfasus  12.07.2020 22:47
Var
  prod, i, k: integer;

begin
  prod := 1;
  readln(k);
  for i := k to 2 * k do
    prod := prod * i;
  writeln(prod)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
bushina2 bushina2  22.01.2021 16:47
По каналу связи передаётся сообщение объемом 256 Мбит, время передачи 16 секунд. Определи пропускную ответ запиши в Мбит/с...
Kiber04ек Kiber04ек  22.01.2021 16:46
Очень Заранее Запусти Паскаль и введи программу: program x1; var a,b,c:integer; begin a:=−32; b:=abs(a); writeln( abs(−32)= ,b); c:=sqr(b); writeln( sqr(b)= ,c); c:=sqr(b+b);...
danilcoptsov1 danilcoptsov1  22.01.2021 16:45
Написать программу на считывание аналогового порта с потенциометра...
1232956 1232956  22.01.2021 16:44
Что такое линейный алгоритм? Что такое идентификаторы? Создайте линейный алгоритм с блок схемами по 3 - 4 примера Например,...
taykinamatilda taykinamatilda  22.01.2021 16:44
ХЕЛП Брошена пара игральных костей с шестью гранями со значениями на гранях от 1 до 6. Сколько информации содержится в сообщении «Сумма выпавших значений равна 5» (см. варианты)?...
Музалевская Музалевская  23.02.2021 18:59
Зощенко Встреча Сколько лет лит герой не видел знакомого?...
ИЩЕ6 ИЩЕ6  28.12.2020 19:34
решить пример паскаль в чём ошибка можете...
looney2017 looney2017  16.06.2019 20:00
Из двух целочисленных массивов одинаковой размерности сформировать третий массив, каждый элемент которого равен меньшему из соответствующих элементов данного массива....
Artemis45677654 Artemis45677654  16.06.2019 20:00
Исполнитель черепашка выполняет программу: для k от 1 до n выполнить вперёд k направо 90 кц ввести n и определить расстояние между начальным и конечным положением исполнителя....
verinikamusia verinikamusia  16.06.2019 20:00
Система нахождения компьютерных вирусов...

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