Ответ: А) Цель: перевозка людей. Машинист электропоезда - управляющий объект. Поезд метро - управляемый объект. Остановка и разгон поезда метро, открытие и закрытие дверей
Б) Цель: оповестит пассажиров рейса. Работник аэропорта. Пассажиры рейса. Пригласить к зоне посадки в самолет.
В) Цель: ловля рыбы. Рыбак. Удочка. Крутить катушку с леской
Г) Цель: вылечить пациента. Врач. Пациент. Поставить укол, прописать лекарства, дать лекарства
Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>
Глубина цвета - количестви бит, необходимое для хранения 1 пикселя в памяти.
Итого имеем 720 * 540 = 388 800 пикселей.
На хранение этого количества пикселей потребуется 388 800 * 24 = 9 331 200 бит = 1 166 400 байт ~= 1139 Кбайт
Program Z;
Uses Crt;
var x,y,z:real;
begin
clrscr;
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x<0) and (x>y) then z:=x;
if (x<0) and (x<y) then z:=y;
if (x>=0) then z:=(x+y)/2;
writeln('z=',z);
readkey;
end.
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.