1). Когда не знаем, сколько точно будет повторений.
2).
На паскале точно все запятые там и ; не помню но как-то так вот.
var a, b, c, d
begin
a:=2;
b:=3;
c:=4;
if a>7 then d:=b + c
writeLn (d<span>);</span>
end.
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
Экран дисплея. Ну нпр картинка выводится на экране.
Ответ: В