Переведите двоичное число 10101001 в системы счисления с основанием: 8; 10

ответ:

отдел +;

использует приём из "", вывод из "";

пер

  n, сумма, сч, скор, макс: цел;

указ

  сумма : = 0;

  макс : = 0;

  вывод.цепь("введите число автомобилей: ");

  n : = приём.число();

  если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе

    вывод.цепь("^введите скорости: ^");

    от сч : = 1 до n вып

      скор : = приём.число();

      если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;

      увеличить(сумма, скор);

      если скор > макс то макс : = скор кон;

      вывод.цепь(" ")

    кон

  кон;

  вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);

  если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон

кон .

объяснение:

#1:

begin

 var a,b,c,d:real;

 write('Введите стороны A B прямоугольника: '); readln(A,B);

 write('Введите стороны C D прямоугольника: '); readln(C,D);

 write('Площади прямоугольников ',(A*B = C*D)? 'равны':'не равны');

end.

#2:

begin

 var a,b,c:real;

 write('Введите стоимость трёх покупок: '); readln(A,B,C);

 write('Дисконтная карта ', ((B>A) and (C>A+B))? 'получена':'не получена');

end.

#3:

begin

 var AB,CD,MN: real;

 write('Введите длину отрезков AB,CD,MN: '); readln(AB,CD,MN);

 write('Отрезки ',(((AB+CD)>MN) and ((AB+MN)>CD) and ((CD+MN)>AB))? 'могут':'не могут', ' быть сторонами треугольника');

end.

#4:

begin

 var A,B:real;

 write('Введите сторону первого квадрата: '); readln(A);

 write('Введите площадь второго квадрата: '); readln(B);

 write('Площади заданных квадратов ', (A.Sqr=B)? 'равны':'не равны');

end.