Решение задач с помощью циклов

ЦИКЛЫ
В Паскале три вида циклов:
Цикл For (со счетчиком);
Цикл While

Цикл FOR

For позволяет выполнить серию действий заданное число раз.
Общий формат

Цикл While

Общий формат:
while условие do
begin
тело цикла
end;
где условие- некоторое выражение, результат может

Как работает While? Сначала проверяется условие.

Если оно истинно, то тело цикла

Цикл Repeat

Общий формат:
repeat
тело цикла
until условие

Сначала выполняется тело цикла.
По достижению пункта until

Задача

Даны равносторонние треугольники. Значение сторон меняются от 10 до 24 с

Цикл FOR

for i:=10 to 24 do
Begin
P:=i*3;
writeln(‘i= ‘,i,’P= ‘,P);
end;
end.

Цикл WHILE

i:=10;
while i<=24 do
begin
P:=i*3;
writeln(‘i= ‘,i,’P= ‘,P);
i:=i+1;
end;
end.