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

помогите составить программу в паскале нужно найти произведение чисел от 3 до 29 с шагом 0,2

  1. Ответ
    Ответ дан JANEE

    Program z1;
    var i,S:real;
    Begin
    i:=3;
    S:=1;
    Repeat
    S:=S*i;
    i:=i+0.2
    Until i>29;
    writeln('произведение =',S);
    end.

  2. Ответ
    Ответ дан Kitsu

    var i,s:real;
    begin
    i:=3;
    s:=1;
    while i<=29 do begin
    s:=s*i;
    i:=i+0.2;
    end;
    writeln(s);
    end.

Самые новые вопросы