Question

Составить 2 программы (используя цикл с предусловием и с постусловием для решения задачи) вычислить: S:=s-3*n если n меняется от 2 до 7 а начальное значение s=2

Answer 1

с предусловием

program var_while;

var

   s : integer := 2;

   n : integer := 2;

   

begin

   while n <= 7 do begin

       s := s-3*n;

       n += 1;

   end;

   writeln(s);

end.

с постусловием

program var_repeat;

var

   s : integer := 2;

   n : integer := 2;

   

begin

   repeat

       s := s-3*n;

       n += 1;

   until n > 7;

   writeln(s);

end.

и в нагрузку цикл с параметром

program var_for;

var

   s : integer := 2;

   

begin

   for var n := 2 to 7 do s := s-3*n;

   writeln(s);

end.