М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ianna9227p00tfn
ianna9227p00tfn
30.03.2022 19:04 •  Информатика

Определите , устройством ВВОДА или ВЫВОДА является каждое из устройства, названия которых приведены нижк. Акустические колонки.
Наушники.
Клавиатура.
Тачпад.
Цифровой микроскоп.
Принтер.
Мышь.
Цифровой фотоаппарат.
Сканер.
Графический планшет.
Видеопроектор.
Web- камера.
Микрофон.
Джойстик.
Графопостроитель.
Встроенный динамик.

👇
Ответ:
Соня200789
Соня200789
30.03.2022

вывод Акустические колонки.

вывод Наушники.

ввод Клавиатура.

ввод Тачпад.

вывод Цифровой микроскоп.

вывод Принтер.

ввод Мышь.

ввод Цифровой фотоаппарат.

ввод Сканер.

ввод Графический планшет.

вывод Видеопроектор.

ввод Web- камера.

ввод Микрофон.

ввод Джойстик.

вывод Графопостроитель.

вывод Встроенный динамик.

4,4(45 оценок)
Открыть все ответы
Ответ:

program a1;
var
a: array [1..15] of integer;
a2: array [1..15] of integer;
Mas1:integer;
Mas2:integer;
Raz:integer;
i:integer;
begin
//Подключаем датчик случайных чисел
randomize;

//Цикл заполняющий массивы и нахождение сумм элементов масива
for i:=1 to 15 do
begin
a[i]:=random(100);
a2[i]:=sqr(a[i])-a[i];
Mas1:=Mas1+a[i];
Mas2:=Mas2+a2[i];
end;

//находим разницу массивов
raz:=mas1-mas2;

//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(a[i],'|')
end;
writeln('');

//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(a2[i],'|')
end;
writeln('');

//Выводим на экран разность массивов
write('Разность сумм элементов массива:', raz);
writeln('');
end.

4,6(10 оценок)
Ответ:
cobaka2705
cobaka2705
30.03.2022

1)а

var a:real;

begin

readln(a);

a1 := a*a;  /получили а^2
a := a1*a1;  /получили a^4

a := a1*a*a;  /получили a^(4+4+2)

writeln(a);

end.

 

1б)

var x:real;

i:integer;

begin

readln(a);

a1 := a*a*a;  /получили а^3
a := a1*a1*a1;  /получили a^9

a := a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

 

2)

var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.

 

3)var a:real;
begin
readln(a);

writeln('В килобайтах' a/1024);

writeln('В мегабайтах' a/(1024*1024));

end.

4,5(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ