Имеются описания: type day = (yesterday, today, tomorrow); vector = array [-1..1] of real; var a: vector; b: array [-3..3] of (x, y, z, w); c: array ['a'..'z'] of vector; d: array [day] of 0..23; каково суммарное количество элементов в четырех массивах? в ответ введите число. пример ввода ответа: 12

39

Объяснение:

type day = (yesterday, today, tomorrow);

vector = array [-1..1] of real;

var a: vector;   - 3 элемента

b: array [-3..3] of (x, y, z, w);  - 7 элементов

c: array ['a'..'z'] of vector;  - 26 элементов

d: array [day] of 0..23; - 3 элемента

Для работы операционной системы требуется определенное количество свободного места для хранения временных файлов, памяти, файла гибернации, кэша и ряда других полезных элементов. как минимум этот объем должен быть не меньше, чем общий объем оперативной памяти вашего компьютера плюс еще столько же. а если еще учесть программы, с которыми вы работаете каждый день, их кэш, временные файлы, то нужно еще больше места. сколько точно – никто сказать не может, но его должно быть достаточно, чтобы и операционная система и программы в ней работали максимально быстро.

Program калькуляторvara,b,c,d,e,f,g,h,i,j,k,l: integer; beginwriteln ('введите число a: '); readln(a); writeln ('введите число b: '); readln(b); writeln(выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление'); readln(q); c: =a*b; d: =a+b; e: =a div b; (так будет программа выдавать целую часть от деления. например 7: 2 будет равно 3. если хочешь чтобы показывало 3,5 то тогда сделай real и поставь /) f: =a-b; if (q=1) thenwriteln('ваш результат',d); if (q=2) thenwriteln('ваш результат',f); if (q=3) thenwriteln('ваш результат',c); if (q=4) thenwriteln('ваш результат',e); end.