1) var a,b,r,i: longint; begin readln(a,b); if a> b then begin r: =a; a: =b; b: =r; end; for i: =a to b do writeln(i); end. 2) var a,b,i: longint; begin readln(a,b); for i: =a to b do if i mod 2< > 0 then writeln(i); end. 3) var a,b,i,s,symm: longint; begin readln(a,b); s: =0; symm: =0; for i: =a to b do begin if i mod 2< > 0 then s: =s+i; if i mod 3=0 then symm: =symm+i; end; writeln(s,symm); end. 4) var r,p,a,n,i: longint; begin readln(a,n); r: =n; if n< 0 then r: =-n; p: =1; for i: =1 to r do p: =p*a; if n< 0 then writeln(1/p) else writeln(p); end.
Спасибо
Ответ дал: Гость
самотестирование компьютера
|
первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы
|
второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.
|
программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей
при включении комп. ос загружается в оп раньше остальных программ
Популярные вопросы