Var x,y:integer;
10-11 класс
|
function nod(x:integer):Longint;
begin
if x=0 then nod:=1
else nod:=nod(x-1)*x
поясните последние две строчки плз
А что объяснять то ? В случае если на функцию подается число 0 - её значение будет равно 1, если же подается значение отличное от 0 - Начинается последовательное вызывание функций по нисходящей nod(x), nod(x-1) и т.д. причем это все домножается на х. В конечном итоге это факториал числа X
Другие вопросы из категории
чисел определяет сумму чисел, кратных 3. Программа получает на
вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 3.
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести одно число – сумму чисел, кратных 3.
сгенерируйте натуральное число в интервале от 100 до 900. Найдите трехзначное
число, состав ленное из тех же цифр, но записанных в обратном порядке.
Данную задачу:
Для
записи текста использовали 256-символьный алфавит. Какой объём информации в
байтах содержат 15 страниц текста, если на каждой странице расположено 32
строки по 64 символа в строке?
Нужно оформить в таком виде (записи):
2i=? => ? символ=? бит
выбрать людей , которые получат премию из всех сотрудников фирм.В ответе укажите только число?
Сергея нет скоростного доступа в Интернет, но есть возможность получать информацию от Кати по телефонному каналу со средней скоростью 2 13 бит в секунду. Сергей договорился с Катей, что она скачает для него данные объемом 9 Мбайт по высокоскроростному каналу и ретранслирует их Сергею по низкоскоростному каналу. Компьютер Кати может начать ретрансляцию данных не раньше, чем им будут получены первые 1024 Кбайт этих данных. Каков минимально возможный промужеток времени (в секундах) с момента начала скачивания Катей данных до полного их получения Сергеем?
Читайте также
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
результат выполнения программы:
var
i, sum: integer;
это его последний элемент, разве нет?
Код:
program s1;
var x, i:integer;
al, tl: array of real;
begin
writeln ('Введите количество ступеней ракеты'); read (x);
setlength (al, x);
setlength (tl, x);
for i:=1 to x do begin
writeln ('Введите ускорение ', i, ' ступени'); read (al[i]);
writeln ('Введите время работы ', i, ' ступени'); read (tl[i]);
end;
end.
P.S.: Переписать массив в статический не предлагать, нужен именно переменной длины. Заранее спасибо.
s:=(s+3)*k;
write(s);
End.
P.S. Желательно подробно.