Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.
110111011+110110110 =1101110001
1101110001-11011011 = 1010010110
110010*101110 = 100011111100
101000100110:110101 = 110001
110010\%=50\%
1010=10(мальчиков)
=>
20 учеников
По стандарту 1 символ = 1 байт (включая пробелы), отсюда имеем
1. <span>1 сентября — День знаний = 24 байта (20 букв и 4 пробела = 24)
2. </span><span>Здравствуй, школа! = 18 байт (15 букв, 1 пробел, 1 запятая и 1 восклицательный знак)</span>
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>