По теореме Бема-Якопини Опции

[Студентка]

Для основных конструкций теоремы Бема-Якопини нужно написать примеры конструкция на Паскале.

- Следование
- Ветвление
- Цикл с предусловием
- Цикл с постуусловием

Помогите, пожалуйста, ребята

[volvo]

Студентка,
поиском пользоваться не пробовала? Уж на что, а на циклы задач хватает:
Следование

begin
  write('Введите число А: '); readln(A);
  write('Введите число B: '); readln(B);
  write('Сумма чисел A + B = ', A + B);
end.

Ветвление

begin
  write('Введите число А: '); readln(A);
  write('Введите число B: '); readln(B);
  if A > B Then min := B Else min := A;
  write('Минимальное число: ', min);
end.

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

begin
  X := 1;
  While X <= 10 Do Begin
    WriteLn('X = ', X); Inc(X)
  End;
end.

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

begin
  X := 1;
  Repeat
    WriteLn('X = ', X); Inc(X);
  Until X > 10;
end.