Function pr(a, b:integer):integer; var tmp:integer;begin if b = 1 then pr := a else begin tmp := pr(a, b shr 1); inc(tmp, tmp); if b and 1 = 1 then inc(tmp, a); pr := tmp; end;<span>end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)</span>
Например: стол 1 достать тетрадь 2 открыть тетрадь 3 взять карандаш 4 нарисовать ножки стола 5 верхушку стола (могут быть ошибки в словах)
Основную часть экрана занимает рабочий стол