'Multyple' operation in binary system is simple: when the both components are '1' result will be '1', otherwise result will be '0'.
0011
x
1011
-----------
1011
+
1011
+ 0
+ 0
----------------
100001
PS/ 1+1=10; 0+0=0; 1+0=1; 1011*1=1011; 1011*0=0
1. Треугольник будет существовать если будут выполнятся одновременно три неравенства:
x + y > z
x + z > y
y + z > x
Программа:
var x, y, z: real;
begin
writeln('Введите стороны треугольника x, y, z: ');
read(x, y, z);
if (x + y > z) and (x + z > y) and (y + z > x)
then writeln('Треугольник существует')
else writeln('Треугольник не существует');
end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real;
begin
writeln('Введите три числа: ');
read(x, y, z);
writeln('В интервале (1; 3) лежат числа: ');
if (x > 1) and (x < 3) then writeln(x);
if (y > 1) and (y < 3) then writeln(y);
if (z > 1) and (z < 3) then writeln(z);
end.
Блок-схемы в приложении:
25 (10) = 11001 (2)
Первые два бита дают 4 возможных варианта
00, 01, 10, 11. Но последний - 11, уже занят.
Остается три варианта.
00 110 (2) = 6 (10)
01 110 (2) = 14 (10)
10 110 (2) = 22 (10)
Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.