Var N, K: integer; begin write('N = '); readln(N); if N > 0 then begin K := sqr(N + 1) + sqr(N + 2) + sqr(N + N); writeln('K = ', K); end else write('N меньше или равно 0'); end.
3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию. 4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык). 5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом. 6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности ее использования. 7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия)
begin
write('N = '); readln(N);
if N > 0 then
begin
K := sqr(N + 1) + sqr(N + 2) + sqr(N + N);
writeln('K = ', K);
end
else
write('N меньше или равно 0');
end.