Вычислить (1+sin0.1)(1+sin0.2) (1+sin10) для free pascal.

Var i,p: real; begin   i: =0.1;   p: =1;   while (i< =10) do     begin         p: =p*(1+sin(pi*i/180));         i: =i+0.1;     end;   writeln ('rezultat: ',p);   readln; end.

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

       

 

при включении комп. ос загружается в оп раньше остальных программ

 

 

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.