Если не разделять понятия неотрицательных и положительных, то этот код: var a,b,c,p,o: integer; begin p: =0; o: =0; writeln('введи три числа'); readln(a,b,c); if a> =0 then p: =p+1 else o: =o+1; if b> =0 then p: =p+1 else o: =o+1; if c> =0 then p: =p+1 else o: =o+1; writeln('положительных чисел ',p); writeln('отрицательных чисел ',o) end. если разделять, то этот: var a,b,c,p,o,n: integer; begin p: =0; o: =0; n: =0; writeln('введи три числа'); readln(a,b,c); if a=0 then n: =n+1 else if a> 0 then p: =p+1 else o: =o+1; if b=0 then n: =n+1 else if b> 0 then p: =p+1 else o: =o+1; if c=0 then n: =n+1 else if c> 0 then p: =p+1 else o: =o+1; writeln('положительных чисел ',p); writeln('отрицательных чисел ',o); writeln('нулей ',n) end.
Спасибо
Ответ дал: Гость
var i,s: integer;
{1}begin
s: =0;
for i: =1 to 1000 do
if i mod 2=0 then s: =s+i;
end.
{2}begin
for i: =1 to 1000 do
if odd(i) then s: =s+i;
{3}a: array[1..500] of integer;
n: integer;
for i: =1 to 1000 do
if odd(i) then a[i]: =i;
n: =i;
for i: =1 to n do
s: =a[i]+s;
end.
Ответ дал: Гость
самотестирование компьютера
|
первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы
|
второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.
|
программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей
при включении комп. ос загружается в оп раньше остальных программ
Популярные вопросы