ЗАДАЧА НА ПИТОНЕ Ребята во дворе играют в очень простую, но занимательную игру. Все по очереди называют числа по порядку. Если число кратно 7 или содержит 7 (например, 21 или 37), то называть число вслух нельзя. Нужно хлопнуть в ладоши.

Кто запутался и назвал число вслух - выбывает из игры!

Даны два числа A - начало, B - конец. Выведите на экран развитие игры.

Если число можно назвать, то выводите на экран само число, если нельзя, то только слово "хлоп".

Формат входных данных
Даны два целых числа 0 ≤ A ≤ B ≤ 100

Формат выходных данных
История игры с числами от A до B. Каждое число на новой строчке.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

2*3=6

512*128*6=393216

393216: 1024=384кб

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.