Дан фрагмент программы (использующий цикл с предусловием):
K:=0;
While k<10 do begin
K:= k+1;
P:=k*k;
Writeln(p);
End
Что выводится на экран в результате выполнения данного фрагмента?
Напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователя

Спасибо большое, нет через for нужно

149162536496481100(в результате выполнения данного фрагмента выводится это)Напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователяЯ решил через "for". Если надо "While" напишиvar s,n,i:integer;beginread(n);s:=1;for i:=1 to n do s:=s*i;writeln(s);end.