profile
Опубликовано 5 лет назад по предмету Информатика от yulia23031999

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

  1. Ответ
    Ответ дан ildarapple
    1
    4
    9
    16
    25
    36
    49
    64
    81
    100
    (в результате выполнения данного фрагмента выводится это)

    Напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователя

    Я решил через "for". Если надо "While" напиши

    var s,n,i:integer;
    begin
    read(n);
    s:=1;
    for i:=1 to n do s:=s*i;
    writeln(s);
    end.


    1. Ответ
      Ответ дан yulia23031999
      Спасибо большое, нет через for нужно
Самые новые вопросы