program p;
var s,a,b,c:string;
begin
s:='геометрические фигуры';
writeln('введите названия трёх геометрических фигур');
read(a,b,c);
writeln(s,': ',a,', ',b,' и ',c);
end.
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
Если вам нужно составить программу, то вот:
program znanija;
var
r,d: integer;
begin
r := 2;
d := r*2;
writeln('Диаметр окружности = ',d)
end.
Например, такая маска должна удовлетворять первым файлам и не удовлетворять вторым
*t*_*a*s
1, бумажная, компьютерная,
2.Под традиционными будем понимать следующие носители информации:бумага, холст, пластмасса (грампластинка), магнитная лента (аудио и видеокассета), фотографические материалы (фотопленка, фотопластина, фотоотпечаток, микроноситель.