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

Ответы 2

  • 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.

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

    • Автор:

      lunazd6i
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years