Урок 14 задача 2

Primary tabs

Submitted by nglag on Thu, 08/12/2021 - 20:13

Forums:

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

Урок 14 задача 2

var
  a, b, c, d: integer; // объявляем глобальные переменные программы

procedure sum(x, y, z : integer; var S: integer); // начало объявления процедуры
begin
  S := x + y + z; // тело процедуры
end;

begin // начало тела программы
  write('Vvedite 3 chisla: ');
  readln(a, b, c);
  sum(a, b, c, d); // вызов процедуры
  writeln(d);
end.
  • Log in to post comments
  • 1047 reads
vedro-compota's picture

vedro-compota

Thu, 08/12/2021 - 20:39

1) не нужна передача по ссылке
2) процедура должна сама выводить ответ на экран

_____________
матфак вгу и остальная классика =)