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