Question

1) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.
2) При каком наибольшем введенном числе d после выполнения программы будет напечатано 150?
var n, s, d: integer;
begin
readln(d);
n := 3;
s := 38;
while s <= 1200 do begin
s := s + d;
n := n + 7
end;
write(n)
end.
3) Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр.
заменить (v, w)
нашлось (v)
Дана программа для исполнителя Редактор:
НАЧАЛО
ПОКА нашлось (222) ИЛИ нашлось (888)
ЕСЛИ нашлось (222)
ТО заменить (222, 8)
ИНАЧЕ заменить (888, 2)
КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ
Какая строка получится в результате применения приведённой ниже программы к строке, со-стоящей из 193 идущих подряд цифр 8? В ответе запишите полученную строку.

Answer 1

1) 165

2) 58

3) 8

1) цикл сработает 11 раз = > решаем через прогрессию

s = (a1 + an ) / 2 * n = (0 + 30) / 2 * 11 = 165 (или можно тупо посчитать по итерациям)

2) на нужно чтобы n = 150 => посчитаем сколько раз должен выполниться цикл (150 - 3) / 7 = 21

1200 / 21 = 57.14 округляем в большую сторону

3) У тебя строка из 193 восьмерок (8) программа 888 на 2 и 222 на 8 => 888 888 888 на 8 => 193 / 9 = 21 и еще 4 восьмерки => 25 дальше снова / 9  = 2 + 7 = 9 восьмерок которые заменяются на одну 8