Для генерации случайного целого числа из промежуток [10; 20)необходимо использовать выражение : а) random *20 б) random (20) в) random (20)+10 г) random (10)*2
В Паскале функция Random(n) возвращает случайное целое число на промежутке [0;n-1]. Промежуток [10;20) получится, если промежуток [0;9] сдвинуть на +10, поэтому надо использовать выражение Random(10)+10 Такого варианта ответа нет. Следовательно, это или ошибка в условии задания, или это не Паскаль.
Подумал и дополню. В старых версиях Паскаля random(n) формировал случайное ВЕЩЕСТВЕННОЕ число на [0;n). Тогда наиболее близкое решение для таких версий Паскаля - г), но ЦЕЛОЕ число еще надо получить
Решение с использование длинной арифметики. var i, j, n, len, rem: integer; a: array[1..200] of byte; begin write('Введите число: '); read(n); len := 1; a[1] := 1; for i := n + 1 to 99 {100} do begin for j := 1 to len do begin rem := a[j] * i + rem; a[j] := rem mod 10; rem := rem div 10; end; while rem > 0 do begin inc(len); a[len] := rem mod 10; rem := rem div 10; end; end; writeln('Произведение чисел из интервала (', n, '; 100): '); for i := len downto 1 do write(a[i]); end. Пример работы программы: Введите число: 1 Произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
Промежуток [10;20) получится, если промежуток [0;9] сдвинуть на +10, поэтому надо использовать выражение Random(10)+10
Такого варианта ответа нет. Следовательно, это или ошибка в условии задания, или это не Паскаль.
Подумал и дополню. В старых версиях Паскаля random(n) формировал случайное ВЕЩЕСТВЕННОЕ число на [0;n). Тогда наиболее близкое решение для таких версий Паскаля - г), но ЦЕЛОЕ число еще надо получить