Program asd;
Var a1,a2,a3:integer;
sr:real;
BEGIN
Write('Введите А1: ');
Readln(a1);
Write('Введите A2: ');
Readln(a2);
Write('Введите А3: ');
Readln(a3);
If (a1>=5) and (a1<=10) then Writeln('Есть. ',a1)
else
If (a2>=5) and (a2<=10) then Writeln('Есть. ',a2)
else
If (a3>=5) and (a3<=10) then Writeln('Есть. ',a3)
else
Writeln('Нету.')
<span>END.</span>
Узнаем сколько всего передано объёма в канал связи
10*5 = 50 Мбит
далее определим сколько это будет в Кбитах
50*1024 = 51200 Кбит
теперь узнаем сколько это в Кбайтах
51200 / 8 = 6400 Кбайт
Все же написано:
<span>z:18:5
Выделено 18 знакомест, из них <u>5 под дробную часть</u>.
</span>
Информационно моделью могут служить изображения фильмов, видео и т.д., знаки (текст например), графические модели ( график чертеж), комбинированные изображения ( карты)
Program upr;
uses crt,GraphABC;
var pic:Picture; R,c:integer; b:string;
begin
SetWindOwSize(640,450);
write('Введите расстояние от предмета до зеркала(1-100):');
Readln(R);
pic:=Picture.Create('raskraska-shenok18.jpg');
pic.load('raskraska-shenok18.jpg');
Pic.Draw(320+R,100,200,290);
Pic.Draw(320-R,100,-200,290);
Setpencolor(clgreen);
Setpenwidth(5);
lINE(320,50,320,400);
LINE(50,400,590,400);
Setpenwidth (2);
Line(trunc(120+r/2),100,TRUNC(520-r/2),100);
END.