Посчитать сумму чисел, введённых с клавиатуры. ввод чисел до тех пор, пока не будет значения 0. ( с предусловием и постусловием ). на языке паскаль.

Var     a: integer;     s: real; begin {постусловие} s: =0; repeat read(a); s: =s+a; until a = 0; writeln('s = ',s); {предусловие} s: =0; read(a); while a< > 0 do     begin     s: =s+a;     read(a);     end; writeln('s = ',s); end.

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

                |

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

                |

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

                |

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

       

 

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

 

 

находим занимаемый объм в битах

640*640*2,5*4

делим на 1024 и находим его в килобитах

4000 кб

12000/4000=3 (3 бита цветности)

не ясно что нужно, кб-килобиты или килобайты