С блокнота попробуй открыть, если нет то хз
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.
<em>3. 11 +1 = 100, 111 +1 = 1 0 0 0, 1111 +1 = 1 0 0 0 0, 11111 +1 = 1 0 0 0 0 0.</em>
<em>2. Сделаешь сам, это элементарно очень. Берешь число и делишь его на два.....Остатки, которые я подчеркнул красным....считаешь в обратном порядке. ..</em>
<em>1. Тоже решишь сам, вот подсказка: Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа</em><span><em>. </em></span>
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.
Наприме даны три числа: 10, 15, и 5
10 делиться на 2 и 5
15 делиться 5
и 5 делиться на 5
Значить наибольшим общим делителем у этих чисел будет число 5