Question

помогите!!! СРОЧНО!!!​ 10класс

Answer 1

Ответ:

1.  A + B

program abc;

var a,b:integer;

begin

  assign(input,'input.txt');

  assign(output,'output.txt');

  readLn(a);

  readLn(b);

  writeLn(a+b);

end.

2. Z

program abc;

var a,o:integer;

begin

  assign(input,'input.txt');

  assign(output,'output.txt');

  readLn(n);

  o:=0;

  for i:integer:=1 to n do o:=o+i;

  writeLn(o);

end.