Var a,b,c:real; begin writeln('Введите 1 сторону треугольника'); readln(a); writeln('Введите 2 сторону треугольника'); readln(b); writeln('Введите 3 сторону треугольника'); readln(c); if (a=b)and(b=c) then writeln('Равносторонний треугольник') else if (a=b) or(b=c)or(a=c) then writeln('Равнобедренный треугольник') else if (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a)) then writeln('Прямоугольный треугольник') else writeln('Обычный треугольник'); end.
Не понимаю как можно ответить на неправильно поставленный вопрос? Если речь идёт о географическом положении в середине, то: 1) Г и Д(подвид ЗУ, который называет ОЗУ располагается рядом с процессором, который в свою очередь находиться в центре материнской платы). Контроллеры устройств ввода/вывода как правило находятся с краю материнской платы. А вообще вопрос некорректно поставлен. 2) А, Б(с клиент-серверной структурой несколько клиентов могут управлять одним сервером(сервер в данном контексте идёт как программа)), Г(многопользовательские ОС тому доказательство), Д.
Из нечетных вычли 1 (получилось четное число), к четным прибавили 1 (нечётное). Отменяем это: к четным прибавляем 1, от нечётных отнимаем. 3216 -> 2307
Третья цифра была сдвинута на 3, при этом поменяв свою четность. 2 - четное число, значит, исходное число было нечётным и было сдвинуто на 3 влево. Отменяем, сдвигаем на 3 вправо: 2 -> 3 -> 4 -> 5.
Вторая цифра была сдвинута на 2, чётность не меняла, была и осталась нечётной. Она была сдвинута на 2 разряда влево, нам надо сдвинуть на 2 вправо: 3 -> 4 -> 5.
Первая цифра сейчас чётная (0), значит, была нечётной, её сдвинули на 1 влево. Сдвигаем на 1 вправо: 0 -> 1.
Нулевая цифра была сдвинута на 0 разрядов, поэтому осталась без изменений. Это цифра 7.
Искомый пароль: 5517.
(Ну и на всякий случай: не надо ставить такие простые пароли, не будьте, как Вася!)
begin
writeln('Введите 1 сторону треугольника');
readln(a);
writeln('Введите 2 сторону треугольника');
readln(b);
writeln('Введите 3 сторону треугольника');
readln(c);
if (a=b)and(b=c) then writeln('Равносторонний треугольник')
else if (a=b) or(b=c)or(a=c) then writeln('Равнобедренный треугольник')
else if (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a)) then writeln('Прямоугольный треугольник')
else writeln('Обычный треугольник');
end.