Урок 14.1 Задача 4

Primary tabs

Submitted by kuznmax on Mon, 10/24/2022 - 18:26

Forums:

Урок 14.1 Задача 4

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

Решение:

program Project1;
var a, c, f, x: integer;

procedure mk();
begin
  writeln('Введите число:');
  readln(a);
  writeln('Введите число:');
  readln(f);
  writeln('Введите число:');
  readln(c);

end;

begin
  x := a + f + c;
  mk();
  writeln(x);
  readln(x);
end

.

  • Log in to post comments
  • 1852 reads
vedro-compota's picture

vedro-compota

Wed, 10/26/2022 - 20:26

не то, исправить по разбору

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

kuznmax

Mon, 10/31/2022 - 15:14 

program Project1;
var a, c, f: integer;

procedure mk(a, f, c: integer);
begin
  writeln(a + f + c);
end;

begin
   writeln('Введите число:');
  readln(a);
  writeln('Введите число:');
  readln(f);
  writeln('Введите число:');
  readln(c);

  mk(a, f, c);

  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 11/12/2022 - 18:17

засчитано

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