Даны x y цена конфет и печенья в рублях.может ли вася купить пол килограмма конфет и столько же печенья, если всего у него n рублей?

Var x,y,n: real; begin readln(x,y,n); if (x+y)/2< =n then writeln('yes') else writeln ('no') end.

Const n=5; m=7; var a: array[1..n,1..m]of integer; i,j,k: integer;     begin       for i: =1 to n do           begin             writeln;               for j: =1 to m do                   begin                           a[i,j]: =random(14)-3;                                   write(a[i,j]: 4);                           if a[i,j]mod 2< > 0 then                               k: =k+1;                   end;           end; writeln; writeln(k); end.              

1)  k: =k mod 3+k*cos(5); в правой части стоит функция косинус, которая определена только для вещественных чисел и операция mod, которая определена только для целых чисел. если k целочисленное, то правая часть будет вещественной и попытка присвоить вещественное значение целочисленной переменной недопустима. надо ставить явное преобразование, например  k: =trunc(k mod 3+k*cos(5)); или  k: =round(k mod 3+k*cos(5)); если же k - вещественное, то операция k mod 2 недопустима. 2) x: =x*2 div 6+x/4 тут в правой части смешаны операция div, которая определена только для целых и операция деления, которая определена для вещественных. такое смешивание вещественных и целый запрещено. в паскале нет функции перевода целых в вещественные, только процедура, но её в выражение не встроишь. поэтому можно только говорить о переводе результата х/4 к целому значение посредством trunc(х/4) или round(x/4). либо о замене х/4 на x div 4. само собой, х надо объявлять целым.