anasasiyakoval
27.08.2021 15:23

решить на паскале, я смог решить так , жду Введите значение решить на паскале, я смог решить так , жду

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Veronika509
16.05.2023 06:57

1)

Носители информации- это любое устройство предназначенное для записи и хранения информации. Например: бумажные, звуконосители, видеоносители, магнитные носители, оптические носители, перфорированные носители.

Объяснение:

2)

Компью́терный ви́рус — вид вредоносных программ внедряться в код других программ, системные области памяти, загрузочные секторы и распространять свои копии по разнообразным каналам связи. Основная цель вируса — его распространение. Я знаю причины заражения вируса. Например: Компьютерные вирусы получили свое название за «заражать» множество файлов на компьютере. Они распространяются и на другие машины, когда зараженные файлы отправляются по электронной почте или переносятся пользователями на физических носителях, например, на USB-накопителях или (раньше) на дискетах.

0,0(0 оценок)
Ответ:
ДИЛЯ2002111
15.08.2022 20:15

Объяснение:

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Var A:array[1..100] of integer;

   i,j,k,n:byte;

   b:boolean;

Begin

   write('Введите размерность: ');readln(n);

   k:=0;

   For i:=1 to n do

    Begin

     A[i]:=random(30)-15;

     write(A[i]:4);

    End;

   For i:=1 to n do

    Begin

     b:=true;

     For j:=i+1 to n do

      if A[i]=A[j] then b:=false;

     if b then inc(k);

    End;

   writeln;

   if k>0 then writeln('Различных чисел: ',k) else writeln('Различных чисел нету');

   readln;

End.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота