Функция должна возвращать значение. Пусть катеты a и b, тогда она должна вернуть a * b / 2. Проверки входных параметров я не провожу, считая, что они корректны:
Код (Pascal):
function area(a, b: real): real;
begin
area := a * b / 2;
end;
begin
write(area(2, 2)) { должно вывести 2 }
end.
Процедура не возвращает значение. Чтобы она смогла-таки как-то сообщить основной программе результат, используем аргумент, перед которым указываем var.
Код (Pascal):
procedure area(a, b: real; var c: real);
begin
c := a * b / 2;
end;
var S: real;
begin
area(2, 2, S);
write(S) { должно вывести 2 }
end.
Поделитесь своими знаниями, ответьте на вопрос:
Для реляционной базы данных определены понятия записи и поля.Установите соответствие.А.Имя поляБ.Тип поляВ.Значение поляГ.Запись1.Определяет какого рода информация хранится в поле и какие действия можно с ней производить2.Название столбца с данными3.Содержимое ячейки таблицы4.Содержит информацию об одном объекте
Если текущее число равно n, то последняя цифра в нем - остаток от деления на 10. В цикле проверяем, если последняя цифра числа 8, то увеличиваем переменную-счетчик восьмерок. После этого отбрасываем последнюю цифру. В конце полученное количество умножаем на 1000 и выводим на экран.
Код (C++):
#include <iostream>
int main() {
int n, count = 0;
std::cin >> n;
while (n > 0) {
if (n % 10 == 8) count++;
n /= 10;
}
std::cout << count * 1000;
}
Пример ввода:
88880
Пример вывода:
4000