Набрать в программе pascal программу исправив ошибки : program 123; uses crt ; var a, s: intedger; begin writeln ( 'введите два числа '); и можно здесь по конкретнее какие именно два числа read(q, w); f: =q/w; writeln ( 'результат ' , f); и здесь тоже readln; end.

Program p123; uses crt; var   a, s: integer;   f: real; begin   write('введите два целых числа, второе не может быть нулем: ');   read(a, s);   f : = a / s;   writeln('результат: ', f);   readln end. тестовое решение: введите два целых числа, второе не может быть нулем: 3 7 результат: 0.428571428571429

Ну типо так: domains treetype = tree(integer, treetype, treetype); empty   predicates max_t(treetype, integer) min_t(treetype, integer) max(integer,integer,integer) min(integer,integer,integer)   clauses   max(m,n,n) : - n> =m, ! . max(m,n,m) : - m> =n, ! .   min(m,n,n) : - n< =m, ! . min(m,n,m) : - m< =n, ! .   max_t(tree(x,empty,empty),x) : - ! . max_t(tree(x,empty,r),q) : - max_t(r,n), max(x,n,q). max_t(tree(x,l,empty),q) : - max_t(l,n), max(x,n,q). max_t(tree(x,l,r),q) : - max_t(l,lm), max_t(r,rm), max(rm,lm,qm), max(x,qm,q).   min_t(tree(x,empty,empty),x) : - ! . min_t(tree(x,empty,r),q) : - min_t(r,n), min(x,n,q). min_t(tree(x,l,empty),q) : - min_t(l,n), min(x,n,q). min_t(tree(x,l,r),q) : - min_t(l,lm), min_t(r,rm), min(rm,lm,qm), min(x,qm,q).

1способ                             2 способ 1)22-10=12                           х+х+10+22 2)12/2=6                              2х=12 либо (22-10)/2                      х=12/2                                               х=6