Всем привет. Это мой первый пост, так-что не судите строго. Сейчас я вам покажу как сделать калькулятор, который находит сумму, произведение и среднее арифметическое трёх чисел. Итак, приступим! program ???; Вместо вопросительного знака может быть любое название. var a, b, c, d, e, f: real; var - это ключевое слово. Всё-что идёт после var, будет рассматриваться как переменные. real - значит числа могут быть не целыми. begin - начало. WriteLN('введите число'); Тут итак думаю понятно. WriteLN - написать, а 'введите число' говорит о том, что надо ввести число...

Всем привет! Задача: Компания создала резерв на покупку новых принтеров. Она накопила 100 000 рублей. Принтеры, которые она хочет приобрести стоят 7 800 рублей. Сколько принтеров компания может приобрести? Решение: Эта задача на целочисленное деление. Символом целочисленного деления являются две косые черты (//) Для решения задачи создадим переменные: SumAcc = 100000 - сумма счета резерва Price = 7800 - стоимость одной единицы продукции (принтера) Amount = SumAcc // Price И подсчитаем: Получим ответ: Итак, мы узнали, что компания может себе позволить купить на эти деньги 12 принтеров...