Розв'язати рівняння х+у/у, x-дiйсне, у-цiле

X: integer; y: real; begin   readln(x,y);   writeln(x+y/y); end.

Uses  crt; const  nmax=100; var  a1,a2: array[1..nmax] of integer;   n,i,b,k,s: integer; begin  randomize;   clrscr;   repeat    write('введите размер массива n (n in [1..',nmax,']): ');     readln(n);     write('введите число b (0< b< 100): ');     readln(b);   until (n in [1..nmax]) and (b in [1..99]);   writeln('массив a1');   for i: =1 to n do  begin    a1[i]: =random(99);     write(a1[i]: 4);     if a1[i]> b then    begin      inc(k);       a2[k]: =i;       s: =s+a1[i];     end;   end;   writeln;   writeln('среднее элеметов, больших b = ',s/k: 0: 2);   writeln('массив a2: ');   for i: =1 to k do write(a2[i]: 4);   readln; end.

#include < iostream> #include < conio.h> using namespace std; int main() {       setlocale(lc_all , "");       int s(0), n(0);       cout < < "введите значение n: ";       cin > > n;       int number_array[n];       for(int i(0); i < n; i++)       {               cout < < "введите " < < i+1 < < " число: ";               cin > > number_array[i];       }       for(int i(0); i < n; i++)       {               if(number_array[i] == 0)               s++;       }       if(s ! = 0)       cout < < "в последовательности n ноль встречается " < < s < < " раз." < < endl;       else       cout < < "в последовательности n ноль не встречается." < < endl;       _getch();       return 0; }