Сколько раз будет выполняться цикл:
S:=320;
a:=9;
repeat
S:=S div 2;
a:=a+3;
until a>18;

miwe10    1   04.05.2020 09:10    2