Var x,y,b:real;
begin
writeln ('Введи 2 вещественных числа');
readln (x,y);
b:=x;
x:=y;
y:=b;
writeln (x,y);
realdn;
end.
Ответ:
Объяснение:
Мелкий чиновник, часто разъезжающий по служебным делам. От его лица идет описание героев повести. Любознательный молодой человек, с уважением относящийся к простым людям. Умеет найти подход к людям, любит слушать различные истории. Внимательный и наблюдательный человек, умеет сопереживать и сочувствовать чужому горю. Узнав о том, что у Дуни все сложилось хорошо, и она была на могиле отца, он прощает ее.
Краткое сочинение
Var
x, s, a: real;
i: integer;
begin
write('Введите x');
readln(x);
a := x;
s := a;
for i := 1 to 6 do
begin
a := a * (-1) * x * x / (2 * i) / (2 * i + 1);
s := s + a;
end;
writeln('S = ', s:10:3);
end.