Задача 1 Урок 14
Primary tabs
Напишите функцию, которая возвращает сумму трёх целых чисел.
var a, b, c: integer;
function sum(x, y, z: integer): integer;
begin
result := x + y + z;
end;
begin
writeln('Введите 3 целых числа:');
readln(a, b, c);
writeln(sum(a, b, c));
readln();
end.- Log in to post comments
- 564 reads