У исполнителя Гамма две команды, которым присвоены номера:
1. прибавь 3;
2. умножь на b
(b — неизвестное натуральное число; b ≥ 2).
Выполняя первую из них, Гамма увеличивает число на экране на 3, а выполняя вторую, умножает это число на b. Программа для исполнителя Гамма — это последовательность номеров команд. Известно, что программа 11211 переводит число 1 в число 97. Определите значение b.

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

32 - вопроса, 32 - ответа

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.