Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.
Информационные модели отражают различные типы систем объектов, в которых реализуются различные структуры взаимодействия и взаимосвязи между элементами системы. Для отражения систем с различными структурами используются различные типы информационных моделей: табличные, иерархические и сетевые.
Var a,b,c,d:integer;begind:=0;a:=0;b:=0;c:=0;beginreadln(a);readln(b);readln(c);d:=a+b+c;if d > 3 thenbeginwriteln('A',a-1) ;writeln('B',b-1);writeln('C',c-1);end;elsea:=a*a;b:=b*b;c:=c*c;end;writeln('A',a) ;writeln('B',b);writeln('C',c);end. / в коде ошибка (
Устройства ввода:
(◘ сканер в принтере)
◘ сканер
◘ клавиатура
◘ микрофон
◘ компьютерная мышь
◘ джойстик