1) Var i:Integer;
A:array[1..10]of integer;
Begin
Write('Введите пять цифр') ;
For i:=1 to 5 do begin
Read(a[i]) ;end;
Write('Кратные двум') ;
For i:=1 to 5 do begin
If a[i] mod 2 =0 then write(' ', a[i]) ;
End;
Write('кратные четырем') ;
For i:=1 to 5 do begin
If a[i] mod 4 =0 then write(' ', a[i]) ;
End;
End.
2)Var a, b, k, i:integer ;
Begin
Write(' a=') ;read(a) ;
Write(' b=') ;read(b) ;
If (a>0)and(b>0) then k:=0;
If (a>0)and(b<0) then k:=abs(b) ;
If (a<0)and(b>0) then k:=abs(a) ;
If (a<0)and(b<0) then k:=abs(a-b) ;
Write('колво отрицательных чисел ', k) ;
End.
Аппаратное обеспечение современных ПК включает в себя следующее: системный блок, устройства ввода информации в ПК (например, клавиатура), устройства вывода информации из ПК (например, монитор).
Системный блок, клавиатура и монитор вместе составляют персональный компьютер в минимальной конфигурации, т.е. позволяют работать с информацией на компьютере
Корпуса системных блоков бывают нескольких типов: вертикальный (tower), горизонтальный (desktop), моноблок (системный блок и монитор в одном корпусе). Существуют переносные компьютеры типа Notebook (ноутбук), предназначенные для работы от автономной батареи.
Внутри системного блока располагаются:
· источник питания,
· материнская (системная) плата
· процессор,
· оперативная память,
· жесткий диск,
· накопитель гибких дисков (устарев).
· привод CD–ROM, DVD-ROM, DVD-RW;
· звуковая карта,
· сетевая карта.
