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