Question

Для каждого из этих циклов надо написать программу на языке паскаль. Для второго цикла из фотки я знаю, как (while <условие1> do if<условие2> then else) А как для остальных? Подскажите хотя бы некоторые, пожалуйста.

Answer 1

Я буду писать в одну строчку; вместо УN будет написано [N], вместо СN будет <N> (мне неудобно переключать раскладку)

1
if [1] then
begin if [2] then <1>; end
else
begin if [3] then <2> else <3>; end;

2.
while [1] do
begin if [2] then <1> else <2>; end;

3.
while [1] do while [2] do <>;

4.
if [1] then
begin if [2] then <1> else <2>; if [3] then <4> else <5>; end
else while [6] do <4>
 
5.
if [1] then <1> else <2>;
repeat <3> until [2];

6. while [1] do repeat <> until [2];