Определи количество ячеек в диапазоне A1:A1. Решите

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей

файл с исходным текстом программы на паскале должен иметь расширение pas.

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.