3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Допустимая скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (a>b) then writeln('Водитель не превысил скорость');
If a<b then writeln('Водитель превысил скорость');
end.
Я надеюсь, что я правильно поняла задание первой и второй задачи о:
Без ОС
-- дверной звонок
с ОС
-- автоматический электрочайник
<span>-- термореле
это всё что я знаю!</span>
Для перевода в двоичную систему делим число на 2 и записываем остатки от деления
285/2=142 остаток 1
142/2=71 остаток 0
71/2=35 остаток 1
35/2=17 остаток 1
17/2=8 остаток 1
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
записываем остатки снизу вверх
285₁₀=100011101₂
для перевода десятичного числа в восьмеричную систему счисления проделываем те же операции, только делим на 8
285/8=35 остаток 5
35/8=4 остаток 3
4/8=0 остаток 4
записываем ответ снизу вверх
285₁₀=345₈
для перевода десятичного числа в шестнадцатеричную систему делим соответственно на 16
285/16=17 остаток 13, что в шестнадцатеричной системе соответствует букве D
17/16=1 остаток 1
1/16=0 остаток 1
ответ 285₁₀= 11D₁₆
Не особо понятное задание. Если нужна просто запись формулы на языке Pyhton, то вот
k = 1 + (abs(y - x) ** 3 ) + (abs(y-x)/(x+1))
Если нужна программа, которая выполняет вычисления по этой формуле, то, наверное, она должна выглядеть как то так:
def main():
x = float(input())
y = float(input())
k = 1 + (abs(y - x) ** 3 ) + (abs(y-x)/(x+1))
print(k)
if __name__ == "__main__":
main()
Program Katarina55;
uses crt;
var
x,poz,neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
writeln('Ввод продолжается, пока не будет введен 0.');
writeln();
neg:=0;
poz:=0;
repeat
writeln('Введите число '); readln (x);
if x<0 then neg:=neg+1;
if x>0 then poz:=poz+1;
until x=0;
writeln();
writeln('Программа закончила работу.');
writeln('Количество введённых чисел:');
writeln(' положительных: ',poz);
writeln(' отрицательных: ',neg);
end.