Регистрация
хорошист55007
17.04.2022 12:34
Информатика
Есть ответ 👍

1 - считать файл посимвольно
2 - сформировать очередь из 3-х символов
3 - проверить короткий список на последовательность АХА
4 - прибавить к счётчику 1 если встретили
5 - вывод счетчика

274
451
Посмотреть ответы 1

Ответы на вопрос:

Barsik12847
Barsik12847
4,7(58 оценок)

ответ:

program pr1;

var

  i: integer;

begin

  for i : = 1000 to do begin

    if (i div 10) mod 10 < > (i div 100) mod 10 then

      write (i, ' ');

  end;

  readln;

end.

- - - - - - - - - - - - - - - - - - - - -  

program pr2;

var

  a, b, i: integer;

begin

  write ('введите а, в: ');

  readln (a, b);

  for i : = a to b do

    if (i mod 2 < > 0) and (i mod 7 = 0) then

      write (i, ' ');

  readln;

end.

Популярно: Информатика