Program deleniye; Uses crt; Var a:integer; Begin; clrscr; write('Введите a >'); readln(a); if a mod 3=0 then writeln('Да'); else writeln('Нет'); readln; End.
Для целей настоящего Закона указанные ниже термины имеют следующее значение:
автор - физическое лицо, творческим трудом которого создано произведение;
аудиовизуальное произведение - произведение, состоящее из зафиксированной серии связанных между собой кадров (с сопровождением или без сопровождения их звуком), предназначенное для зрительного и слухового (в случае сопровождения звуком) восприятия с соответствующих технических устройств; аудиовизуальные произведения включают кинематографические произведения и все произведения, выраженные средствами, аналогичными кинематографическим (теле- и видеофильмы, диафильмы и слайдфильмы и тому подобные произведения), независимо от их первоначальной или последующей фиксации;
база данных - объективная форма представления и организации совокупности данных (статей, расчетов и так далее), систематизированных таким образом, чтобы эти данные могли быть найдены и обработаны с компьютера;
воспроизведение произведения - изготовление одного или более экземпляров произведения или его части в любой материальной форме, в том числе в форме звуко- и видеозаписи, изготовление в трех измерениях одного или более экземпляров двухмерного произведения и в двух измерениях - одного или более экземпляров трехмерного произведения; запись произведения в память компьютера также является воспроизведением;
воспроизведение фонограммы - изготовление одного или более экземпляров фонограммы или ее части на любом материальном носителе;
запись - фиксация звуков и (или) изображений с технических средств в какой-либо материальной форме, позволяющей осуществлять их неоднократное восприятие, воспроизведение или сообщение.
Uses crt;
Var a:integer;
Begin;
clrscr;
write('Введите a >');
readln(a);
if a mod 3=0 then writeln('Да');
else writeln('Нет');
readln;
End.