помогите пожалуйста срочно!
Определите что будет напечатано в результате работы следующего фрагмента программы
Var k, s:integer
Begin
S:=0;
K:=1;
While s < 66 do begin
K:=k+3;
S:=s+k;
End;
Write (k) ;
End.
И второй пример
Определите что будет напечатано в результате работы следующего фрагмента программы
Var k, s:integer
Begin
S:=0;
K:=1;
While s < 66 do begin
K:=k+3;
S:=s+k;
End;
Write (k) ;
End.
И второй пример
More Questions From This User See All
Answers & Comments
Ответ:
1: 19 2: 17
Странно что вы не вбили всё это в ABCPascal, но если вам нужно решение на бумаге, то надо много писать и считать либо пользоваться геометрической или арифметической прогрессией.