4. В таблице приведены запросы и количество найденных по ним некоторого сегмента сети Интернет:ЗапросКоличество страниц (тыс.)пирожное & выпечка3200пирожное8700выпечка7500Какое Количество страниц (в тысячах) будет найденопирожное | выпечка?По​

Так как на большинстве версий "Паскаля" мы не можем установить шаг цикла в for, будем использовать цикл while для решения данной задачи.

Возьмём переменную i для хранения нужных нам значений, дадим ей значение равное 1001, запустим цикл while, который будет выполняться пока наша i <= 1025, в цикле у нас будет выводиться на экран значение переменной i, а затем переменная увеличиваться на 3.

Алгоритм на языке Паскаль:

var

i : integer;

begin

i := 1001;

while i <= 1025 do

begin

write(i,' ');

i := i + 3;

end;

end.