Const N=10;
var a: array [1..N] of integer;
i, p: integer;
begin
for i:=1 to N do
a[i]:= random (20);
p:=1;
if a[i] mob 2=0 then
p:=p*a[i];
writeln (a[i];
end.
1. Если в документе имеются рисунки (изображения), то их нужно сжать, уменьшить в размере или уменьшить качество.
2. Если нет, то скорее всего поможет изменение размера текста.
Т.е. выполнить матем. операции с этим числами, я так понял?
101011 (2) = 43 (10)
101 (2) = 5 (10)
101011 + 101 = 110000 (2) = 48 (10)
101011 - 101 = 100110 (2) = 38 (10)
101011 * 101 = 11010111 (2) = 215 (10)
101011 / 101 = 1000 (2) = 8 (10) - приблизительно. Точный результат 8,6 нельзя записать в двоичном виде.
<span>
В начальной школе 4класса
у нас 3 мальчика </span><span>Петя, Ваня и Саша</span><span>
Петя перешел в тот класс, в котором в прошлом году учился Саша
Значит Петя учится не в 1 классе, а должен переити во 2 или 3 класс
Саша старше ПЕТИ
А Ваня учится в 1 классе , получается </span>через год закончит 2 класс и переидет в 3 класс* ( поидет тот класс, который в этом году закончит Петя)
Получается Петя учится в 3 классе, Саша в 4 классе
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadLnString('1: ');
var s2:=ReadLnString('2: ');
s1.ToLower.Intersect(s2.ToLower).OrderBy(t->t).Println(',')
end.