Задача 4 Урок 14.1
Primary tabs
Напишите процедуру, которая получает на вход три целых числа и выводит на экран их сумму.
program u141z4; var a,b,c:integer; procedure sum(d,e,f:integer); begin writeln(d+e+f); end; begin writeln('Vvedite 3 chisla'); readln(a,b,c); sum(a,b,c); readln(); end.
- Log in to post comments
- 204 reads