1. Заполнение столбца Mi можно выполнить автозаполнением (протяжкой маркера). 2. Значения столбцов Vi и Oі вычисляются по формулам: Vi=Fi / Рі; oi = Fi – Pi
3. Переименуйте ЛИСТ1 в Ведомость.
4. Сохраните таблицу в своей папке под именем Практическая работа 1
5. Сдайте работу.

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end. 

в книге 1 верное

а 99 неверных решений

  в этой книге ровно 99-ть неверных утверждений.