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

Primary tabs

Submitted by jl8qy9kd_pro on Fri, 08/06/2021 - 14:24

Forums:

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

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

var a, b, c, d: integer;
  procedure summ3(q, w, e: integer; var r: integer);
  begin
    r := q + w + e;
  end;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  summ3(a,b,c,d);
  write(d);
  readln();
end.
  • Log in to post comments
  • 1322 reads
vedro-compota's picture

vedro-compota

Sun, 08/08/2021 - 12:58

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

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

jl8qy9kd_pro

Sun, 08/08/2021 - 21:08 

var a,b,c: integer;
  procedure summ3(q, w, e: integer);
  begin
    write(q + w + e);
  end;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  summ3(a,b,c);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/29/2021 - 13:20

решение засчитано

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