Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Определите, что будет напечатано в результате работы следующего фрагмента программы:
program B05;
var n, s: integer;
begin
n := 0;
s := 1;
while s <= 1000 do begin
s := s * 3;
n := n + 3;
end;
write(n)
end.
Подробно, пожалуйста

Ответ оставил Гость

Цикл будет до тех пор пока s больше или равно 1000
s := 1;     s := s * 3; то есть

3^1 = 3

3^2 = 9

3^3 = 27

3^4 = 81

3^5 = 243

3^6 = 729