Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 18;
a := 8;
repeat
a := 2*a + 1;
write( a);
until (a>b)
end.

ответ:первое значение а, то есть 8.

Объяснение:

Вообщем я так понимаю это приравнивается к циклу do while в c++ поэтому пойду по этой страте.

объявлем 3 целочисленные переменные;

Начало

присваеваем "b" значение 18;

присваеваем "a" значение 8;

присвеваем "a" произведение 2 и "a" и + 1;

вывод(а) на экран;

Если (a>b)

Конец.

1 цикл проходит и значение а становится 16+ 1 = 17. И всё ещё a < b цикл завершен.

алгоритм такой:

1 шаг: определяем сколько мы получим денег за первые 75 газет.

пусть n - всего газет, тогда (n-(n-75))*f = a, - рублей за первые 75 газет.

2 шаг: определяем кол.во копеек, которые мы получим за остальные газеты: (n-75)*x = b, - копеек.

программа на естественном языке:

переменные:

a, b : целые;

начало

введение n (число газет);

введение f(цена за первые 75 газет);

введение x(цена за последующие газеты);

a присвоить (n-(n-75))*f;

b присвоить (n-75)*x;

вывод (мальчик заработает a рублей b копеек).

конец.