Які типи даних належать до цілих типів. Real, Byte, lShortint, Integer

var

x: real;

begin

readln(x);

writeln(round(x));

end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются