Авторское право — в объективном смысле институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях. Скачивание информации из Интернета - иногда может быть опасным т.к. на некоторые файлы/информацию распространяется авторское право. Тем самым можно навредить себе если информация будет использоваться в публичных целях.
//1 var A, B, i: integer; begin write('Введите A и B: '); readln(A, B); for i := A to B do if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i); end.
//2 var A, B, i, k: integer; begin write('Введите A и B: '); readln(A, B); for i := A to B do if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then begin writeln(i); k := k + 1; end; if k = 0 then writeln('Таких чисел нет.'); end.
//3 var sum, i, n: integer; begin write('Введите количество предметов: '); readln(n); for i := 1 to n do begin readln(n); sum := sum + n; end; writeln('Общая масса = ', sum); end.
//3 с другим циклом var sum, n: integer; begin writeln('Введите 0 для завершения ввода.'); repeat readln(n); sum := sum + n; until n = 0; writeln('Общая масса = ', sum); end.
Скачивание информации из Интернета - иногда может быть опасным т.к. на некоторые файлы/информацию распространяется авторское право. Тем самым можно навредить себе если информация будет использоваться в публичных целях.