Напишите программу НА ПАСКАЛЕ, которая получает два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. в ОТВЕТЕ ИСПОЛЬЗУЙТЕ repeat и until Пример: Введите два числа: 10 -15 10*(-15)=-150

Не знаю, на каком языке ты программируешь... я написал на C#
 using System;
namespace ConsoleApplication55{    class Program    {        static void Main(string[] args)        {            link:            Console.Write("Введите кол-во элементов  числовой последовательности: ");            int kol = Convert.ToInt32(Console.ReadLine());            if (kol > 100 || kol < 0)                goto link;            Random ran = new Random();            int[] array = new int[kol];            Console.WriteLine("\nПоследовательность чисел в строчку: ");            for (int i = 0; i < array.Length; i++)            {                array[i] = ran.Next(1, 1000);                Console.Write(array[i] + " ");            }            Console.Write("\n\nПоследовательность чисел, где каждое с новой строки:\n");            for (int i = 0; i < array.Length; i++)                Console.Write(array[i] + "\n");            Console.ReadKey();        }    }}
Смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь  него рандомные(случайные) числа с периодом от 1 до 1000. После этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в С# это "\n"), в Паскале это writeln и т.д.

Дано:

Количество символов: 200*50*80

Количество рисунков: 10

Параметры рисунка:

K = 800×600N = 16 цветов

 -  ?

Решение:

Находим информационный объем текста:

В условии не сказано, в какой кодировке записан текст, поэтому считаем как 1 байт.

[текста]  =  200*50*80*1  =  800 000 байт.

Находим информационный объем рисунка:

i = log₂N = log₂16 = 4 бита

[рисунка] = K*i = 800*600*4 = 1 920 000 бит = 240 000 байт.

[рисунков] = [рисунка] * 10 = 2 400 000 байт.

Находим информационный объем книги:

= [текста] + [рисунков] = 800000 + 2400000 = 3200000 байт

= 3200000 байт = 3125 КБ ≈ 3,05 МБ

ответ:  3125 КБ (примерно 3,05 МБ)