Запиши мантиссу числа и порядок числа 213 = 0,213 *10в кубе
Мантисса числа:
Порядок числа:

! ✊​

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.