Question

Написать программу которая выводит на экран сумму 5 натуральных чисел. Смотреть задание использовать 3 циклические конструкции

Answer 1

Var
  i,s:integer;
 
begin
  s:=0;
  for i:=1 to 5 do s:=s+i;
  Writeln('for: ',s);
  s:=0; i:=1;
  while i<=5 do begin
    s:=s+i;
    i:=i+1
    end;
  Writeln('while: ',s);
  s:=0; i:=1;
  repeat
    s:=s+i;
    i:=i+1
  until i>5;
  Writeln('repeat: ',s)
end.

Результат
for: 15
while: 15
repeat: 15