Просмотр содержимого документа
«Словесные алгоритмы»
var n, s: integer;
begin
n := 1;
s := 0;
while n 100 do
begin
s := s + 30;
n := n * 2
end;
write(s)
end.
Цикл while выполняется до тех пор, пока истинно условие n ≤ 100, т. е. переменная n определяет, сколько раз выполнится цикл. Поскольку изначально n = 1, цикл выполнится 7 раз (для n = 1, 2, 4, 8, 16, 32, 64), следовательно, s = 30 · 7 = 210.
Ответ: 210.
var s, n: integer;
begin
s := 47;
n := 1;
while s 0 do
begin
s := s - 9;
n := n + 4
end;
writeln(n)
end.
Цикл while выполняется до тех пор, пока истинно условие s 0, т. е. переменная s определяет, сколько раз выполнится цикл. Поскольку изначально s = 47, цикл выполнится 6 раз (для s = 47, 38, 29, 20, 11, 2), следовательно, n = 6 · 4 + 1 = 25.
Ответ: 25.
var s, n: integer;
begin
s := 42;
n := 1;
while s 0 do
begin
s := s – 5;
n := n + 3
end;
writeln(n)
end.
Цикл while выполняется до тех пор, пока истинно условие s 0, т. е. переменная s определяет, сколько раз выполнится цикл. Поскольку изначально s = 42, цикл выполнится 9 раз, следовательно, n = 9 · 3 + 1 = 28.