4 года назад

Найдите произведение чисел от одного до N

1 ответ:

0 0

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
i, n: integer;
p: BigInteger;

begin
write('Введите число N ');
readln(n);
p := 1;
for i := 1 to n do p := p * i;
writeln( 'Произведение чисел от 1 до ',n,' равно : ',p);
end.

Тест №1:
Введите число N 5
Произведение чисел от 1 до 5 равно : 120

Тест №2:
Введите число N 100
Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

Читайте также

Постоянное запоминающее устройство служит для: а) хранение программ начальной загрузки компьютера и тестирования его узлов б) хр

mcsmilen [7]

<span>а) хранение программ начальной загрузки компьютера и тестирования его узлов</span>

0 0

4 года назад

Почему не работает калькулятор(ничего не работает кроме деления на 0)? Прошу помогите пажалуйста program calc; var operation: ch

ОльгаКныш [28]

Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.

0 0

1 год назад

Расставить арифметические знаки 1 2 3 4 5 6 чтобы получилось 1

нюта99 [4]

Ответ:::::::::::::::::::::::::
1+2+3-4+5-6=1

0 0

3 года назад

Дано целое число N(>1). Составить алгоритм наибольшего целого К, при котором выполняется неравенство 3К

Alka18

Ответ

Uses Crt;

var b, n, k:integer;

begin

ClrScr;

write('Введите n=');

readln(n);

b:=1; k:=0;

while 3*b < n do

begin

k:=k+1;

b:=b*3;

end;

writeln('k=', k, ' 3^k=', b);

readln;

end.

Объяснение:

0 0

3 года назад

Он бывает злой и длинный. Его можно прикусить, проглотить, распустить, чесать.

dochlyubvi [35]

Язык....................................................

0 0

3 года назад