Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.
Function reverse(x:longint):longint;beginvar a,b:integer;a:=0;b:=0;while x>0 dobegina:=(x mod 10);b:=((b*10)+a);x:=(x div 10);reverse:=b;end;end;var c:longint;beginwriteln('введите число');read(c);write('ваш ответ ', reverse(c));end.
Вот так как-то вроде ничего непонятного если, что пиши-поясню.
А) свойства и отличительные характеристики.
б) величина и значение объекта
в) возможности объекта обозначаются именами действий, отвечающие на вопрос "Что он может делать?"
г) описание действия объекта свойственного ему
д) сочетание значений всех или некоторых свойств объекта