Факториалом числа называет произведение всех чисел от 1 до этого числа. Нам нужно посчитать 1 * 2 * 3 * 4 * 5 * 6 * 7 тремя и убедиться, что получится 5040.
PascalABC.NET 3.2 begin var fact := 1; var i := 1; while i < 8 do begin fact *= i; i += 1; end; println('Через while получилось', fact);
fact := 1; for i := 1 to 7 do fact *= i; println('Через for получилось', fact);
fact := 1; i := 1; repeat fact *= i; i += 1; until i > 7; println('Через repeat получилось', fact); end.
Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). Пример:«=ОКРУГЛ(выражение);число)»
Дано:
Математическое выражение: «(89+75)−2(72:(3+7))»
Найти: Значение выражения и округлить его в MS Ecxel.
Формула (Её нужно ввести в окошко Excel и нажать "Enter"): «=ОКРУГЛ((89+75)-2*(72/(3+7));2)»
ответ: 149,6
(До сотых программа округлить не может, ибо число имеет только десятые в ответе)
Далее скриншот, и файл Excel в котором формула и сам ответ.
Const n=8; var x : array[1..n] of real; i : integer; min : real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=20*random-10; write(x[i]:6:2,' '); end; writeln; min:=x[1]; for i:=2 to n do if x[i] < min then min:=x[i]; writeln('min=',min:6:2); for i:=1 to n do if x[i]<0 then x[i]:=min; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:6:2,' '); end.
PascalABC.NET 3.2
begin
var fact := 1;
var i := 1;
while i < 8 do
begin
fact *= i;
i += 1;
end;
println('Через while получилось', fact);
fact := 1;
for i := 1 to 7 do
fact *= i;
println('Через for получилось', fact);
fact := 1;
i := 1;
repeat
fact *= i;
i += 1;
until i > 7;
println('Через repeat получилось', fact);
end.