Задача 1 Урок 14.2
Primary tabs
Напишите функцию, которая возвращает сумму трёх целых чисел.
program u142z1; var a,b,c:integer; function sum(a,b,c: integer): integer; begin result:=a+b+c; end; begin writeln('Vvedite A,B,C '); readln(a, b, c); writeln('Summa=: ', sum (a, b, c)); readln (); end.
- Log in to post comments
- 543 reads