Дано натуральное число.определить, есть ли в нем цифра равная а (а вводится с клавиатуры)

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.

varz,a,i: integer; beginwriteln('vvedite chislo'); readln(z); writeln('vvedite zifru'); readln(a); for i: =1 to length(inttostr(z)) do beginif z mod 10 = a thenwriteln('est'); z: =z div 10; end; end.

А) операции div и mod работают только с целыми значениями; да. b) если a – целая, а b и c –вещественные, то допустима запись a: =b/c; нет, переменной целого типа нельзя присваивать значение вещественного типа. с) для вещественных переменных обычно применяется тип real; да. d) round(x) - округление до целого, а trunc(x) - отсечение дробной части; да. e) значение 35000 входит в тип integer; да. f) все переменные описывают в разделе var; нет, не все. ещё, например, есть массивы, константы. g) исполнительная часть программы начинается с begin и заканчивается end.; да. i) в операторе read комментарии пишутся в кавычках. нет, если подразумевается, что апостроф это не кавычки. в апострофах (одинарные кавычки).

{у = ах2 – b для х изменяющегося от –7 до +12 с шагом +1.значения а и b ввести с клавиатуры.решить эту с использованием всехвидов циклов (for, while, repeat)}var a,b,x,y: integer; beginwriteln(',я alconafft'); writeln('введи заначения перeменных а и б'); writeln('введи значение а'); readln(a); writeln('введи значение b'); readln(b); writeln('хорошо,теперь протабулируем ф-цию на заданном отрезке,поехали))'); for x: =-7 to 12 do//парметрический циклbeginy: =a*x*2-b; writeln('значение у= ',y,' при х= ',x); end; writeln(' с '); x: =-7; repeatinc(x); y: =a*x*2-b; writeln('значение у= ',y,' при х= ',x); until(x=12); x: =-7; writeln(' с '); while x< 12 dobegininc(x); y: =a*x*2-b; writeln('значение у= ',y,' при х= ',x); end; end.