Контрольная работа № 3
НАЧАЛО ПРОГРАММИРОВАНИЯ
1. Определите значение переменной c после выполнения следующей программы:
var a, b, c: integer;
begin
a:= 10;
b:= 30;
a:= a + b * 3;
if a > b then c:= a - b else c:= b - a;
writeln (c);
end.

2. Запишите значение переменной s, полученное в результате работы программы:
var s, k: integer;
begin
s := 0;
for k := 1 to 7 do
s := s + 6;
writeln (s);
end.

3. Дана программа:
var s,t: integer;
begin
readln(s);
readln(t);
if (s > =10) or (t > 10)
then writeln ("ДА")
else writeln ("НЕТ")
end.
Было проведено 8 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(11, 2); (1, 12); (11, 12); (–11, –12); (–11, 12); (–12, 11); (10, 10); (10, 5).
Сколько было запусков, при которых программа напечатала «ДА»?

4. Составьте программу нахождения суммы первых 20 натуральных чисел.

Ценность информации — одно из важных свойств информации, оценка которого зависит от целей процессов её генерации, рецепции и обработки. Изучается специальными теориями информации, теорией принятия решений.

Удобнее всего рассматривать проблематику ценности информации, приняв за определение информации (в духе работы Г. Кастлера[en] «Возникновение биологической организации»), что: «информация есть запомненный выбор одного варианта из нескольких возможных и равноправных».

С понятием информации тесно связано и понятие количества информации. Количество информации применимо как численная характеристика полного количества информации, так и количества ценной информации. Информация некоторого сообщения может быть как полностью ценной, так и не содержать ценной информации вообще[3]. Понятиям «ценности» и «осмысленности» информации, несмотря на их важность в информатике, обычно строгого определения не давали[4].

В информатике (развившейся из теории связи) ценность информации, её эволюция и вопросы спонтанного возникновения в сложных системах не является предметом изучения, так как цель предполагается заданной извне. Смысловые и прагматические аспекты информации, в том числе ценность и осмысленность, изучаются в рамках семантической и прагматической теорий информации

{ ответ дан на языке Pascal }
//1-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3-значное число: ');
  READ(num);

  n1 := (num DIV 100);
  n2 := (num MOD 100 MOD 10);
  n3 := (num MOD 100 DIV 10);
  IF(n1 + n2 + n3) MOD 2 = 0
  THEN WRITELN('Чётное')
  ELSE WRITELN('Нечётное');
END.

//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3-значное число: ');
  READ(num);

  n1 := (num DIV 100);
  n2 := (num MOD 100 MOD 10);
  n3 := (num MOD 100 DIV 10);
  IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
  THEN WRITELN('Равен')
  ELSE WRITELN('Не равен');
END.

//3-я задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  a, b, c: INTEGER;

BEGIN
  WRITE('Введите a, b, c: ');
  READ(a, b, c);

  IF(a = b) OR (b = c) OR (c = a)
  THEN WRITELN('Равнобедренный')
  ELSE WRITELN('Не равнобедренный');
END.