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

Primary tabs

Submitted by Djos on Fri, 10/01/2021 - 15:37

Forums:

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

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

var a,b,c,i,d:integer;
procedure sum(x,y,z:integer; var i:integer);
begin
  i:= x + y + z;
end;
begin
  writeln('Vvedite 3 chisla: ');
    readln(a,b,c);
    sum(a,b,c,d);
  writeln('Summa abc = ',d);
  readln();
end.
  • Log in to post comments
  • 1272 reads
vedro-compota's picture

vedro-compota

Fri, 10/01/2021 - 23:29

процедура должна сама выводить сумму, передача переменной по ссылке тут не нужна

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

Djos

Sat, 10/02/2021 - 10:49 

var a,b,c:integer;
procedure sum(x,y,z:integer);
begin
  writeln('Summa abc = ',x + y + z);
end;
begin
  writeln('Vvedite 3 chisla: ');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/06/2021 - 21:15

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

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