НЕТ ВРЕМЕНИ!

Дана программа на языке Pascal:

Program num1;
var a, b, c, m : integer;
Begin
writeln('Введите три числа');
readln(a, b, c);
m := a;
if b if c writeln(m);
End.

Напишите общим языком, что находит эта программа (что хранит в себе переменная m).

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

размер объекта- эскиз

форму реального объекта - чертежа

  цвет объекта-рисунка

  элементный состав объекта   -схемы

  отношения между объектами - диаграммы эйлера-венна

  стоимость объекта   -числа

объект-фотографии 

видеокарта, монитор.   это