Var x, y: Real; i: integer; begin for i := 1000 downto 1 do begin if (i mod 2 = 0) then y := -1 * i else y := i; writeln('1/', i); x := x + 1 / y; end; writeln('> ', x); end.
А вручную это пришлось бы минут 30 даже с калькулятором считать х_х
/* * * Программа решает задачу: Дана строка символов. Группы символов, * разделенные пробелами (одним или несколькими) и не содержащие пробелы * внутри себя, будем называть словами. * Заменить в строке слова S на слова W ( S, W - заданы). * * */
1)Потому что информацию мы в скором времени забудем. А оперативная память-временная. Примеры:кол-во денег которое мне надо взять с собой что бы доехать завтра до вокзала; номера упражнений по геометрии которые надо сделать дома до завтра. 2)Достоинства оперативной памяти: не занимает место в долговременной, через некоторое время удалится(если речь про компьютер); позволяет возвращать несколько действий назад(например в ворде) Недостатки: загружает компьютер; малое кол-во памяти Достоинства долговременной памяти: почти не затормаживает компьютер; большое кол-во памяти Недостатки: Поиск файлов может занять некоторое время; не вся информация может туда загрузится
i: integer;
begin
for i := 1000 downto 1 do
begin
if (i mod 2 = 0) then y := -1 * i
else y := i;
writeln('1/', i);
x := x + 1 / y;
end;
writeln('> ', x);
end.
А вручную это пришлось бы минут 30 даже с калькулятором считать х_х