Question

ПОМОГИТЕ, ПОЖАЛУЙСТА, СРОЧНО НУЖНО! делать нужно в паскале: составьте 3 программы, используя FOR, WHILE и REPEAT: распечатать последовательность чисел 3, 6, 9, 12, ...20 и найти их сумму

Answer 1

//Pascal
var
  a, s:  integer;
  i: integer;

begin
 
  //цикл for
  s := 0;
  for i := 0 to 20 div 3 do
    s := s + i*3;
  writeln(s);
 
  //цикл while
  i := 3;
  s := 0;
  while i <= 20 do
  begin
    s := s + i;
    i := i + 3;
  end;
  writeln(s);
 
  //цикл repeat
  i := 3;
  s := 0;
  repeat
    s := s + i;
    i := i + 3;
  until i > 20;
  writeln(s);
end.