Question

Определите, что будет напечатано в результате выполнения следующего алгоритма:
Var s,k: integer; 
begin
 s:= 100
k:=7
repeat 
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат

Answer 1

Вставь данное условие в программу ABC Pascal. Программа выдаст ответ 77.
У тебя в условии есть ошибки.
Var s,k: integer; 
begin
 s:= 100;
k:=7;
repeat 
s:= s-k;
k:=k+1
Until k>10;
writeln( s+k)
end. 
Вот правильное условие.

Answer 2

Мне надо самой все вычислить, а не с помощью программы, я это просила объяснить

Answer 3

S=100; k=7 Повторять пока k не станет больше 10. s=s-k; s=93; k=7+1=8 и все по новой пока k не станет больше 10. После чего надо вывести полученную сумму s и k

Answer 4

Четче пиши, что тебе необходимо

Answer 5

Спасибо