program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.
1 байт= 8 бит, следовательно
88 бит:8 бит=11 байт
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
................
a:=38;
b:=a+9;
a:=b-a;
writeln(a);
writeln(b);
.................
Ответ: a = 9, b = 47.
Объяснение: дано начальное значение 38. Переменной B присвоить значение a+9, то есть 38+9 = 47. Из этого следует, что b = 47. Переменной a присвоить значение b-a, то есть 47-38 = 9. Из этого следует, что a = 9.
Сперва узнаем, сколько ребят любят компьютерные игры:
83 - 6 = 77(чел.) - играют в компьютерные игры
Затем сложим "квестников" и "симуляторников":
55 + 62 = 117(чел.)
Затем отнимем от получившейся суммы количество любителей игр:
117 - 77 = 40(чел.)
Ответ: 40 человек.