nov3mb3r
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov,dec);
day = 1..31;
var d: 28..31; m: mes;
Переменной d присвоить количество дней в месяце m (год считать невисокосным).
2. type stroka = packed array [1..80] of char;
var s:stroka;
Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно заменив на ks первое вхождение x, если такое есть.
5. type food = ( broad, butter, milk, meat, fish, salt, cheese, saucers, sugar, tea, cafe);
assort = set of food;
shop = array [1..20] of assort;
Описать процедуру Nal(sh, A), которая по информации из массива Sh типа shop (Sh(i) – это множество продуктов, имеющихся в i-м магазине) присваивает параметру A типа assort множество всех продуктов, которые есть во всех магазинах.
|
Буду пробовать что нибудь наколдовать исползуя record, думаю именно зто как раз нужно 
