У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001
Все решения даны в системе программирования PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Если программа не работает, обновите версию!
№1 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
Пример n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
№2 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.
Пример n= 5 Вводите числа: 5 -4 6 0 5 6 5 5 0 -4
№3 begin var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println; Sort(a,(x,y)->x>y); a.Println end.
pascal
Объяснение:
Задание 1
var
y, z, c, d: real;
s, p: real;
begin
Write('Введите y, z, c и d:');
ReadLn(y, z, c, d);
p := y * z * c * d;
s := y + z + c + d;
WriteLn('Сумма равна ', s);
WriteLn('Произведение равно ', p);
end.
Результат: 33 и 250
Задание 2
var
a: real;
s: real;
begin
Write('Введите сторону квадрата a:');
ReadLn(a);
s := sqr(a);
WriteLn('Площадь квадрата равна ', s);
end.
Результат: 64
Задание 3
var
a, b: real;
s: real;
begin
Write('Введите стороны прямоугольника a и b:');
ReadLn(a, b);
s := a * b;
WriteLn('Площадь прямоугольника равна ', s);
end.
Результат: 60