3 раза.
После первого прохождения цикла
s=2; k=2;
после 2 прохождения цикла
s=5; k=3;
после 3 прохождения цикла
s=9; k=4;
при следующей проверки условие s<=7 не выполниться так как s>7
Program vj;
var x,a,b,c,h:integer;
begin
writeln('трёхзначное число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
h:=a+b+c;
writeln(' Сумма цифр этого трёхзначного числа=',h)
end.
Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
=$E$3+C3 , индексы со знаком доллара не изменяются при копировании.
Это таблица перевода от 0 до F