A16=109 перевести в десятичную систему счисления

109₁₆ =  265₁₀

Исходный код:

program par;

var v, a, b, c: integer;

function volume (a, b, c: integer): integer;

begin

 volume := a * b * c

end;

begin

 Readln(a);

 Readln(b);

 Readln(c);

 

 v := volume(a, b, c);

 

 Writeln(v);

end.

Примечание:

В двух скриншотах исходный код в редакторе и результат выполнения программы. В качестве объяснения скажу, что мы объявили функцию volume которая считает объем по переданным в нее измерениям параллелепипеда и возвращает значение. В основной части программы мы вводим измерения и передаем их в функцию, потом выводим результат. Переменная v для хранения результата функции.

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите слово: ').tolower;   var c: =readlnchar('введите букву: ').tolower;   if pos(s[1],'аеёиоуыэюя')> 0 then writeln('слово начинается с гласной')   else writeln('слово начинается не с гласной');   if s[1]=c then writeln('слово начинается с указанной буквы')   else writeln('слово не начинается с указанной буквы') end. примеры введите слово: арбуз введите букву: к слово начинается с гласной слово не начинается с указанной буквы введите слово: барабан введите букву: б слово начинается не с гласной слово начинается с указанной буквы