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>
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
Ответ:
Гипертекст-это документы содержащие текстовую, графическую, аудио, видео информацию, связанная собой взаимность ссылками в едином тексте.
Удачи тебе!♡!
Попириписывалась пол опроса им про ос ряд Ир щмр