Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>
Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
Я делаю через промежуточный расчет - сначала в десятичную систему
143(7) = 3*7⁰ + 4*7¹ + 1*7² = 3+28+49 = 80(10)
Вспоминаем, что цифры больше 10 обозначаются буквами.
Напоминаю
10=А, 11=B, 12=C, 13=D, 14=E,15=F - это для перевода в 16-ричную.
Теперь наши 80 делим на 12, а остатки записываем.
80(10) = 6*12¹ +8*12⁰ = 68(12) - ОТВЕТ
<span>42015 + 22015 – 15
Сначала решаешь в 10-ой системе счисления:</span>
<span>42015 + 22015 – 15 = 64015
Затем переводишь найденное число из 10-ой в 2-ую:</span>
64015(в 10-ой) = <span>1111101000001111 (в 2-ой)
В данном числе 10 единиц.
Остальные примеры решаются точно также
</span>