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

1

Ответы и объяснения

2014-02-22T15:20:48+00:00
Вставь данное условие в программу 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. 
Вот правильное условие.
Мне надо самой все вычислить, а не с помощью программы, я это просила объяснить
S=100; k=7 Повторять пока k не станет больше 10. s=s-k; s=93; k=7+1=8 и все по новой пока k не станет больше 10. После чего надо вывести полученную сумму s и k
Четче пиши, что тебе необходимо
Спасибо