Нужна с задачей по паскаль.
На языке Паскаль составить программу для проверки равенства.
С клавиатуры ввести точность ε и вещественное число x. Определить, сколь-ко сомножителей было найдено

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65

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.

отношения между объектами - диаграммы эйлера-венна

объект-фотографии

стоимость объекта   -числа

р. об.- эскиз

ф. р. об. - чертежа

эл. с. об.  -схемы

  цв. об.-рисунка