3 года назад

Помогите пожалуйста написать программу которая создаёт 2 массива целых чисел случайным образом

1 ответ:

LisaD3 года назад

0 0

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=(ArrRandom(10,-100,100),ArrRandom(10,-100,100));
a.Println; b.Println;
end.

Читайте также

Здравствуйте Решите пожалуйста задание

виталий3333

Самый толстый Топ, худее его Мим, еще худее Смех, и совсем тощий Бон

0 0

1 год назад

Прочитать ещё 2 ответа

Напишите программу сложения вычитания деления и умножения двух чисел

theprodigy3000 [21]

Var a, b: integer;
begin
write('Введите два числа: ');
read(a, b);
writeln(a, ' + ', b, ' = ', a + b);
writeln(a, ' - ', b, ' = ', a - b);
writeln(a, ' * ', b, ' = ', a * b);
writeln(a, ' / ', b, ' = ', a / b);
end.

0 0

4 года назад

Подробно из десятичной системы счисления перевести в двоичную: 74 (10) 23 (10) 17 (10) 2 (10)

Евген 001 [165]

74 : 2 = 37 (остаток 0)
37 : 2 = 18 (остаток 1)
18 : 2 = 9 (остаток 0)
9 : 2 = 4 (остаток 1)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
В ответе записываем остатки с конца подсчетов
Ответ : 1001010 
74(10) = 1001010(2) 

23 : 2 = 11 (остаток 1)
11 : 2 = 5 (остаток 1)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
Ответ : 10111
23(10) = 10111(2)

17 : 2 = 8 (остатк 1)
8 : 2 = 4 (остаток 0)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
Ответ: 10001
17(10) = 10001(2)

2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
Ответ: 10
2(10) = 10(2)

0 0

4 года назад

Решите задачу: Для получения годовой оценки по МХК учебнику требовалось написать доклад на 8 страниц. Набирая это задание на ком

Т М [7]

1) Высчитаем суммарное количество символов: 32*64*8=16384 (символа)

2) Высчитаем суммарное количество бит: 16*16384=262144 (бит)

3) Переводим биты в байты (1 байт = 8 бит): 262144/8=32768 (байт)

4) Переводим байты в килобайты (1 КБ = 1024 Б): 32768/1024=32 (килобайта)

Ответ: 32 КБ

0 0

3 года назад

1)В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.2)В диапазоне от 0 до 50 подсчитать количество чисел с

powervoice

var i,i1,i2,count1,count2:integer;

0 0

4 года назад