Используя цикл «для», создайте алгоритм и начертите блок-схему для решения задач: а) Найдите значение факториала n!
Факториалом числа n (обозначается n!) называется произведение 1*2*3*4*…*n.
б) Найти сумму квадратов чисел от 1 до 4.
в) Найти сумму квадратов n целых чисел(n≥1)
Нужны именно блок схемы!
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.