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.
Конечно информационной моделью авто,бумага с рисунком содержит информацию
Предоставлена таблица истинности и построение логической схемы.