Регистрация
WERTO124
29.10.2020 12:51
Информатика
Есть ответ 👍

Опишите, что будет выведено на веб-странице в результате выполнения следующего кода? Информатика 10 класс

165
209
Посмотреть ответы 1

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

MDasha45
MDasha45
4,5(96 оценок)

var

  a, c: integer;

begin

  write('введите число '); readln(c);

  write('a = '); readln(a);

  write('в числе ', c );

  while c < > 0 do

  begin

      if c mod 10 = a then

      begin

          writeln(' есть цифра ', a);

          exit;

      end;

      c : = c div 10;

  end;

  writeln(' нет цифры ', a);

end.

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