Pascal! даны основания и высота р/б трапеции. найти ее периметр!

Пробуйте: var a,b,h: integer; p: real; begin write ('введите длину большего основания: '); read(a); write ('введите длину меньшего основания: '); read(b); write ('введите длину высоты: '); read(h); p: =a+b+2*sqrt(sqr(h)+sqr(a-b)/4); writeln ('периметр = ',p); end.

Var                                         i,z,y,x: integer;                 // объявление переменных begin                               // начало программы writeln('введите числа: '); // вывод сообщения readln(x,y);                       //  ввод чисел х и у с клавиатуры while i < > y do                     // повторять цикл пока i не будет равно y   begin                               // вход в цикл   z: =z+x;                             // z = z + x   (при первом шаге получается 0 = 0 + х)    i: =i+1;                             // увеличиваем счетчик цикла на 1    end;                                   // выход из цикла write(z);                             // вывод z (произведение х и у) end.                                   // конец программы 

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48. 121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. подходят 3, 4, 6, 8. учитывая, что в числе  121 три разряда, значит число 48 делилось всего три раза.  число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления. число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков. число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2. остаётся число 6. проверим 49/6=8 |1 8/6 = 1 |2 1/6=0 |1 121(6)