1) микрофон - устройство ввода, остальное - устройства вывода
2) процессор - устройство обработки информации, остальное - устройства ввода/вывода
3) 1-д, 2-а, 3 -в
6. Устройства ввода: сканер, мышь, микрофон, веб-камера
устройства вывода: принтер, проектор, колонки, монитор
устройства обработки: процессор
Var a,b,c:integer;BeginWriteln('Введите числа a b c ');Readln (a,b,c);If (a=b) and (b=c) and (c=a) then Write ('Числа равны') else Write ('Числа не равны');End.
Uses GraphAbc;
Var i:integer;
const slovo = 'Misha';
begin
for i:= 1 to 100 do
begin
SetFontColor(rgb(random(225),random(225),random(225)));
SetFontSize (random (20)+1);
SetBrushColor(rgb(random(225),random(225),random(225)));
textout(0,0,slovo);
sleep (100);
Clearwindow()
end
end.
P.s когда функция SetFontSize (random (20)) равно 0, то выходит ошибка, поэтому я написал "+1".
1) program otsort;
var a:array[1..10] of integer;
i,j,b:integer;
begin
for i:=1 to 10 do begin a[i]:=random(201)+50; write(a[i]:4); end;
for i:=1 to 10 do
for j:=1 to 9 do if a[j+1]<a[j] then begin //отсортировка по возрастанию, поменять < на > для сортировки по убыванию
b:=a[j+1];
a[j+1]:=a[j];
a[j]:=b;
end;
writeln;
for i:=1 to 10 do write(a[i]:4);
end.
Uses Crt;
var
a,b,c,x:double;
begin
ClrScr;
Write('Введите через пробел a и c:'); Read(a,c);
b:=a+c*c;
x:=Cos(b)/Sqrt(b+5);
Writeln('x=',x);
ReadKey
end.