написать программу для машины Поста
1. Число k задано на ленте k метками. Увеличить число на единицу, если: 1) каретка находится где-то над массивом меток. 2) каретка находится где-то слева от массива.
2. На ленте задан массив меток. Увеличить его на два.
3. Два числа заданы на ленте двумя массивами меток. Сложить эти числа. Расстояние между массивами может быть: 1 метка; несколько меток.
Вводим 200 Вывод 220
Объяснение:
var s, n, i: integer;
begin
for i:=200 to 250 do //Создаём цикл, который будет прогонять
begin // значения S от 200 до 250
s:=i; // логичнее начинать i c 200 т.к. while работает
n := 100; // при условии, что s- 100 >= 100
while s - n >= 100 do
begin
s := s + 20;
n := n + 40;
end;
writeln(i, ' ',s) // вывод всех значений от 200 до 250
end; // выбираем нужный
end.
end.