1. Десятичное число 123456 в нормализованной форме, запишите его мантиссу 2. Десятичное число 315,934 в нормализованной форме, запишите его мантиссу

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

если первая дробь равна a/b, а вторая - c/d, то их сумма равна е = a/b + c/d = (a*d + c*b)/b*d (без последующего сокращения дроби е).

алгоритм:

1. ввести числа a,b,c,d.

2. рассчитать число е = (a*d + c*b)/b*d.

3. распечатать число е.

program amoeba;   var i,count: integer;   begin  i: =3; //количество часов  count: =1; //количество амеб  while i < = 24 do  begin  count: =count*2; //каждые 3 часа количество амеб удваивается  writeln(i,' hours: ',count); //выводим кол-во часов и амеб  i: =i+3;   end;   readln;   end.

корень квадратный записывается так : sqr

(если, например, тебе надо найти гипотенузу в прямоугольном треугольнике, то это будет выглядить так:   c=sqr(a^2+b^2) ).