Исходный код:
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 для хранения результата функции.
еж
Объяснение:
8 бит = 1 байт
4 байта - это 4 символа (т.к. один символ кодируется 1 байтом).
При вычеркивании слова вычеркивается еще запятая и пробел, значит ищем слово, состоящее из 2 букв. Это слово "еж".