Question

Помогите
Что делает следующая программа? Какой ответ она выдаст при введении чисел 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.

Answer 1

Ответ: Программа не будет работать.

Объяснение:

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.