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

Дано натуральное число n и последовательность а1, а2, натуральных чисел, заданных случайным образом из диапазона [3; 100]. умножить все элементы этой последовательности, кратные 3, на третий элемент. решить для n=10 (написать на паскале).

👇
Ответ:

const

  n=10;

var

  a:array [1..n] of longint;

  i:integer;

begin

  randomize;

  for i:=1 to n do

    begin

       a[i]:=random(98)+3;

       write (a[i]:4);

    end;

  writeln;

  for i:=1 to n do

     begin

         if a[i] mod 3 = 0 then a[i]:=a[i]*a[3];

         write (a[i]:6);

     end;

  writeln;

  readln;

end.

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

ответ:Принцип работы и устройство звуковой карты компьютера даст понять, каким образом звуковая плата генерирует звуки. Создатели первых компьютеров задумывали воспроизведение звукового сигнала лишь с одной целью – сигнал предупреждения. Следующим этапом развития звуковых сигналов на компьютерах стали первые компьютерные игры, для которых разработчики пытались создавать музыку из того же одного сигнала, меняя его длину и частоту. Как можно догадаться, такая музыка не звучала реалистично. В 80х годах несколько производителей представили первые дополнительные звуковые карты с расширенными возможностями, которые компьютеру управлять звуками. На сегодняшний день звуковая карта это многофункциональное сложное устройство, которое может не только воспроизводить музыку или объемный звук, но также предоставляет возможность записывать звук с микрофона, создавать звук высокого качества.

Объяснение:

4,8(82 оценок)
Ответ:
tolikking05
tolikking05
18.11.2022
1.                                                        

program raf105;

var hour,sec: integer;

begin

write('Введите количество часов: ');

readln(hour);

sec:= hour*60*60;

writeln('Это ',sec,' сек.');

end.

2.                                                        

program raf105;

var Xa,Ya,Xb,Yb,k: real;

begin

write('Введите координаты первой точки (Х и Y): ');

readln(Xa,Ya);

write('Введите координаты второй точки (Х и Y): ');

readln(Xb,Yb);

k:= (Yb-Ya/Xb-Xa);

writeln('Угловой коэффициент: ',k:0:2);

end.

3.                                                        

program raf105;

var abc,a,b,c,sum,pro: integer;

begin

abc:= random(100,999);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

sum:= a+b+c;

pro:= a*b*c;

writeln('Число ',abc);

writeln('Сумма цифр: ',sum);

writeln('Произведение цифр: ',pro);

end.

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