Question

Помогите с паскалем))Для вот этой программы(файл прикреплен документом) Нужно 1) Решить задачу используя цикл с предусловием2) РПомогите с паскалем))
Для вот этой программы(файл прикреплен документом)
Нужно 1) Решить задачу используя цикл с предусловием

2) Решить задачу используя цикл с постусловием.
Само задание которое в файле звучит так 1) Написать программу, которая вычисляет сумму первых n членов ряда 1, 3, 5, 7,…
Количество суммируемых членов ряда задается во время работы программы
(используя цикл с параметром).

Answer 1

Ваши с переделанными циклами

var
  n, i, c, a: longint;

begin
  read(n);
  a := 1;
  i:=1;
  while i<=n do
  begin
    c := a + c;
    a := a + 2;
    i:=i+1
  end;
  write(c);
end.
----------------------------------------------
var
  n, i, c, a: longint;

begin
  read(n);
  a := 1;
  i:=1;
  repeat
    c := a + c;
    a := a + 2;
    i:=i+1
  until i>n;
  write(c);
end.