1
var
i: byte := 1;
sum: integer := 0;
begin
//Предусловие
writeln('*** Цикл с предусловием ***');
while i <= 100 do <br>begin
sum := sum + i;
inc(i);
end;
writeln('Сумма = ', sum:5);
//Постусловие
sum := 0; i := 1;
writeln('*** Цикл с постусловием ***');
repeat
sum := sum + i;
inc(i);
until i > 100;
writeln('Сумма = ', sum:5);
//Счетчик
sum := 0;
writeln('*** Счетчик ***');
for i := 1 to 100 do sum := sum + i;
writeln('Сумма = ', sum:5);
end.
2
var
N: integer;
i: integer := 1;
sum: integer := 0;
begin
write('Введите N: ');
readln(N);
//Предусловие
writeln('*** Цикл с предусловием ***');
while i <= n do <br>begin
sum := sum + i;
inc(i);
end;
writeln('Сумма = ', sum:5);
//Постусловие
sum := 0; i := 1;
writeln('*** Цикл с постусловием ***');
repeat
sum := sum + i;
inc(i);
until i > N;
writeln('Сумма = ', sum:5);
//Счетчик
sum := 0;
writeln('*** Счетчик ***');
for i := 1 to N do sum := sum + i;
writeln('Сумма = ', sum:5);
end.