Question

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

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.