Какая из форм может служить аналогом подпрограммы на Pascal procedure pr(x: integer);begin a:=0; for i:=1 to x do a:=a+1; print (a);end;
(Отметьте один правильный вариант ответа.)
Варианты ответа
(defun pr(x)(prog (a) B (cond ((= a x) (print a)(return a) ) ) (setq a (+ a 1)) (go B) ))
(prog pr () (setq a 0) B (cond ((= a x) (print a)(return a) ) ) (setq a (+ a 1)) (go B) )
(defun pr(x)(prog (a) (setq a 0)B (cond ((= a x) (print a)(return a) ) ) (setq a (+ a 1)) (go B) ))(Верный ответ)