Задача 4 Урок 14.1
Primary tabs
Напишите процедуру, которая получает на вход три целых числа и выводит на экран их сумму
var a,b,c:integer; procedure podprogsum(q,w,e:integer); var f:integer; begin f:=q+w+e; writeln('summa = ',f); readln(); end; begin writeln('vvedite a'); readln(a); writeln('vvedite b'); readln(b); writeln('vvedite b'); readln(c); podprogsum (a,b,c); end.
Вывод консоли:
vvedite a 5 vvedite b 23 vvedite b 1 summa = 29
- Log in to post comments
- 55 reads