• 1)Найдите сумму S=0.3+0.6+0.9+...+3
    2) найдите произведение Р=1/20*1/18*1/16*...*1/2
    На языке Паскаль с помощью команд REPEAT и WHILE. Помогите пожалуйста!

Ответы 2

  • Спасибо большое!
    • Автор:

      neil14j1
    • 6 лет назад
    • 0
  • //Задание №1//цикл repeatvar i,s:real;begin  s:=0;  i:=0.3;  repeat     s:=s+i;     i:=i+0.3;  until i >= 3;  writeln('Сумма ',s);end.//Задание №2//цикл whilevar p:real;  i:integer;begin  p:=1;  i:=20;  while i>2 do begin     p:=p*(1/i);     i:=i-1;  end;  writeln('Произведение членов ряда ',p);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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