Урок 14 Задача 2
Primary tabs
Напишите процедуру, которая выводит на экран сумму трёх целых чисел.
Решение:
var s,k,m,n: integer; procedure sum3(a,b,c: integer; var d:integer); begin d:=a+b+c; end; begin k:=1; m:=2; n:=3; sum3(k,m,n,s); writeln('summa = ',s); readln(); end.
Консоль:
summa = 6
- Log in to post comments
- 346 reads