program p;
var s,a,b,c:string;
begin
s:='геометрические фигуры';
writeln('введите названия трёх геометрических фигур');
read(a,b,c);
writeln(s,': ',a,', ',b,' и ',c);
end.
338 байтов для кодирования 300 различных значений
1.Каждый графический примитив рисуется в своем слое, поэтому рисунки состоят из множества слоев.Существует возможность изменения видимости объектов путем изменения порядка размещения их слоев на рисунке. Для этого используются операции изменения порядка, которые позволяют перемещать выделенный объект на передний план (в самый верхний слой рисунка) или на задний план (самый нижний слой рисунка), а также на один слой вперед или назад.
2. В какой программе? Формулируйте вопросы правильнее...В CorelDraw, например, это нужно чтобы не по отдельности объекты тягать или обрабатывать, а целиком!
(x<11) и (x>=9) - пересечение множеств решений этих неравенств, то есть это промежуток [9;11)
(x<5) или (x принадлежит [9;11)) - это равносильно объединению множеств, то есть x будет из промежутка (-oo;5)U[9;11)
Целые положительные числа из данного интервала:
1,2,3,4,9,10 - 6 чисел
Ответ: 6
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.