Написать программу чтоб работала в pascal запрашивает с клавиатуры два целых числа, их разность и частное (результат деления) и выводит на экран сообщение о правильности сделанных пользователем вычислений;
Pascalabc var x,y,z: integer; t: real; begin writeln('введите первое целое число'); readln(x); writeln('введите второе целое число'); readln(y); writeln('введите разность'); readln(z); writeln('введите частное'); readln(t); i f ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x)) then writeln('вычисления выполнены правильно') else writeln('вычисления выполнены неправильно'); end.
bykovaam
26.09.2021
Const maxn = 100; // максимальное кол-во элементов массива var n, i: longint; middle, sum, sum2: real; // может быть нецелым числом a: array[1..maxn] of real; begin write('введите количество элементов массива: '); readln(n); sum : = 0; // считаем сумму всех элементов, чтобы найти среднее арифметическое write('введите элементы массива через пробел: '); for i : = 1 to n do begin read(a[i]); sum : = sum + a[i]; end; middle : = sum / n; // вычисляем среднее арифметическое writeln('среднее арифметическое = ', middle); sum2 : = 0; // считаем сумму элеметов, меньших среднего арифметического for i : = 1 to n do if a[i] < middle then sum2 : = sum2 + a[i]; writeln('сумма элементов, меньших среднего арифметического = ', sum2); end.
karnakova-a
26.09.2021
Формат. формат шрифта подразумевает под собой: выбор подчеркивания; подбор ширины; определение цвета шрифта; выбор шрифта; подбор начертания; выбор размера; кернинг шрифта; смещение шрифта; шрифтовые спецэффекты; индексацию.характеристики шрифта: гарнитура, кегль, начертание, ширина, подчеркивание, кернинг, цвет шрифта, смещение символов шрифта, параметры анимации, индексация, регистр шрифта.но если попроще: шрифтов много, отличаются они друг от друга по 3-м параметрам: гарнитура, размер символов, начертание.а все остальное - лишь детализация.