Составить алгоритм и программу вывода на экран таблицы значений y: y=x^2+1 для всех значений x от 0 до 2 с интервалом 0, 25.

Var   x: real; begin   x: =0;   while x< =2.0001 do begin       writeln('x=',x: 5: 2,'    y=',sqr(x)+1: 0: 4);       x: =x+0.25   end end. результат выполнения программы: x= 0.00    y=1.0000 x= 0.25    y=1.0625 x= 0.50    y=1.2500 x= 0.75    y=1.5625 x= 1.00    y=2.0000 x= 1.25    y=2.5625 x= 1.50    y=3.2500 x= 1.75    y=4.0625 x= 2.00    y=5.0000

Когда нужно найти вероятность совершения некольких событий, происходящих друг за другом, вероятности каждого отдельного события перемножаются. но когда нужна вероятность свершения хотя бы одного из событий, нужно найти вероятность того, что вся цепочка событий не произойдет и вычесть ее из единицы. т.е. в данном случае мы сначала находим вероятность того, что нужное нам событие не произойдет. если из 44 краж раскрыто 14, то не раскрытых краж 44-14=30. тогда вероятность, что первое взятое дело будет нераскрытым, составит 30/44 = 15/22. в этом случае у нас останется 43 кражи, 29 из которых нераскрыто и вероятность того, что второе выбранное дело будет нераскрытым, составит 29/43. рассуждая аналогично, для третьего дела получаем 28/42 = 2/3. вероятность, того что все три события будут иметь место, составит (15/22) х (29/43) х (2/3) ≈ 0.307. следовательно, вероятность того, что этого не произойдет, т.е. наша искомая вероятность, составит 1-0.307 = 0.693. ,

Var n1,n2,a,b: integer;       d: byte; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do     begin     write('n1 = '); readln(n1);     write('n2 = '); readln(n2);     for n2: = n1 to n2 do             begin             a: =n2;             b: =0;             while a> 0 do                   begin                   b: =b*10+a mod 10;                   a: =a div 10;                   end;             if b = n2 then write(n2,' ')             end;     writeln;     writeln('1 - продолжить, 0 - выйти');     readln(d);     end; end. правда, я не уверен, что она правильно работает на любых числах, поэтому ещё одна версия: var     n1,n2,d: integer;     a,b: string; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do     begin     write('n1 = '); readln(n1);     write('n2 = '); readln(n2);     for n2: = n1 to n2 do             begin             a: =inttostr(n2);             b: ='';             for d: = length(a) downto 1 do                     b: =b+a[d];             if a=b then write(n2,' ')             end;     writeln;     writeln('1 - продолжить, 0 - выйти');     readln(d);     end; end.