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

Primary tabs

Submitted by alexander263 on Wed, 12/08/2021 - 18:12

Forums:

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

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

program project1;
var num1,num2,num3,res:integer;

procedure sum(num1,num2,num3:integer);
begin
  res:=num1+num2+num3;
end;

begin
   write('Введите первое число: '); readln(num1);
   write('Введите второе число: '); readln(num2);
   write('Введите третье число: '); readln(num3);
   sum(num1,num2,num3);
   writeln('Результат: ', res);
readln();
end.
  • Log in to post comments
  • 1722 reads
vedro-compota's picture

vedro-compota

Wed, 12/08/2021 - 18:53

не использовать глобальную переменную

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

alexander263

Sun, 12/12/2021 - 12:50 

program project1;
var num1,num2,num3:integer;

procedure sum(num1,num2,num3:integer);
var result:integer;
begin
  result:=num1+num2+num3;
  writeln('Результат: ', result);
end;

begin
   write('Введите первое число: '); readln(num1);
   write('Введите второе число: '); readln(num2);
   write('Введите третье число: '); readln(num3);
   sum(num1,num2,num3);
readln();
end.
vedro-compota's picture

vedro-compota

Sun, 12/12/2021 - 13:20

засчитано

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