Question

помогите пожалуйста срочно!
Определите что будет напечатано в результате работы следующего фрагмента программы
​Var k, s:integer
Begin
S:=0;
K:=1;
While s < 66 do begin
K:=k+3;
S:=s+k;
End;
Write (k) ;
End.
И второй пример

Answer 1

Ответ:

1: 19 2: 17

Странно что вы не вбили всё это в ABCPascal, но если вам нужно решение на бумаге, то надо много писать и считать либо пользоваться геометрической или арифметической прогрессией.