PascalABC:
var a:array of real;
k,i,n:integer;
x:real;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
readln(a[i]);
if (i>0) and (k=0) and (x>a[i]) then k:=1;
x:=a[i];
end;
if k=1 then writeln('Элементы массива не являются возрастающей последовательностью')
else writeln('Элементы массива являются возрастающей последовательностью');
end.
Ответ:
47₁₆
Объяснение:
2D₁₆ + 1A₁₆
Сложение "в столбик". Ведем его в десятичной системе и делаем корректировку на разницу оснований систем т.е. на 16-10=6, если результат превышает 15.
Нужно помнить (или пользоваться таблицей), в соответствии с которой:
А₁₆=10₁₀; B₁₆=11₁₀; C₁₆=12₁₀; D₁₆=13₁₀; E₁₆=14₁₀; F₁₆=15₁₀.
D₁₆+A₁₆ = 13 + 10 = 23. Корректировка: 23 - 6 = 17₁₆ Записываем 7 и +1 в следующий разряд.
2+1+1=4. Тут корректировка не нужна. Результат 47₁₆
2 D
+ 1 A
---------
4 7
Div-операция деления без остатка.
Разделим 345 на 100, получается 3,45.
Остаток нужно отбросить, получится 3.
Ответ: 3
Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.