Помогите Что делает следующая программа? Какой ответ она выдаст при введении чисел 3 и 24? var a,b,s,k:integer; begin readln(a); readln(b); S:=a; while s k:=k+1; s:=s+a; end; writeln(k); end.
Ответ: Программа не будет работать.
Объяснение:
var a,b,s,k:integer;
begin
readln(a);
readln(b);
S:=a;
while s k:=k+1; - не задано условие к циклу while, программа будет выдавать ошибку и не станет суммировать числа.
s:=s+a; end;
writeln(k);
end.