1.Продолжить числовой ряд 1,5,25,125,625... использую цикл REPEAT. (Паскаль) 2.Найти...

Question

1.Продолжить числовой ряд 1,5,25,125,625... использую цикл REPEAT. (Паскаль)
2.Найти сумму положительных нечетных чисел, меньших 50.(Паскаль)

Comments

До какого значение продолжить числовой ряд?

---

Значения*

---

там нет определенного значения

Answer 1

//Pascal
//1)
var N, mult: longint;
begin
  mult := 1;
  write('Введите конечное число: '); readln(N);
  repeat
    write(mult, ' ');
    mult := mult * 5;
  until (mult > N);
readln;
end.

//2)
var
  i: byte;
  sum: integer;
begin
sum := 0;
  for i := 1 to 49 do
    if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;   
end.

---

Comments

спасибо большое, можно ещё 1 вопрос, для чего используется until.

---

Задает условие для окончания цикла repeat.