Исходный код:
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 для хранения результата функции.
с++ написать программу для определения времени суток по данному текущему вреени и вывести сообщение (утро с 6 до 12, день с 12 до 18, вечер с 18 до 24, ночь с 0 до 6)
Объяснение:
с++ написать программу для определения времени суток по данному текущему вреени и вывести сообщение (утро с 6 до 12, день с 12 до 18, вечер с 18 до 24, с 0 до 6)с++ написать программу для определения времени суток по данному текущему вреени и вывести сообщение (утро с 6 до 12, день с 12 до 18, вечер с 18 до 24, ночь с 0 до 6)с++ написать программу для определения времени суток по данному текущему вреени и вывести сообщение (утро с 6 до 12, день с 12 до 18, вечер с 18 до 24, ночь с 0 до 6)
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln;
var H := a.Rows
.Select(row -> row.Where(p -> p.IsOdd).Sum)
.ToArray;
H.Println
end.