2. Процессор. Видеокарта. RAM
3. Устройство, управляющее работой внешних узлов ЭВМ (принтерами, накопителями и др.), а также программное обеспечение к такому устройству.
Это все что я понял
Int main()
{
int mas[],a;
for (int i=0;i<3;i++)
{
cin>>mas[i]
}
for(int i=0;i<3;i++)
{
if(mas[i]>0)
{
a=mas[i];
a*=a;
}
}
2)
if x>0 or z>0 or y>0 then
условие
Program Program1;
var
x,y:real;
begin
write('Введите x: ');
readln(x);
y:=7*SQR(x)-3*x+6;
writeln('y=',y);
end.
Ну вот, надо что то написать чтоб было 20 символов)))
Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.