4
-
У исполнителя Альфа две команды, которым присвоены номера:
1. прибавь 1;
2. умножь на Б
(b - неизвестное натуральное число; b> 2).
Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую,
умножает это число на b. Программа для исполнителя Альфа — это последовательность номеров
команд. Известно, что программа 11211 переводит число 3 в число 62. Определите значение b.
- цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла 
.
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;