Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

обзор, xslt, of, семантика, core, MS Access, Internet, label, counter, site, схема, прототипирование, динамический, математика, packed, uses, calculator
 

Pascal. Answers. Pa.6. Writing of simple programs



главная страница


Pa.6.1


program pr;
var x, y, z : integer;
begin
      readln(x);
      readln(y);
      z:=x+y;
      writeln(z);
end.




Pa.6.2


program pr;
var x, y : integer;
begin
      readln(x);
      readln(y);
      writeln(y);
      writeln(x);
end.




Pa.6.3


program pr;
var
      x, y : integer;
      b : boolean;
begin
      readln(x);
      readln(y);
      b:=(x=y);
      writeln(b);      
end.




Pa.6.4


program pr;
var
      x, y, z : integer;      
begin
      readln(x);
      readln(y);
      if (x>y) then z:=x
      else z:=y;
      writeln(z);      
end.




Pa.6.5


program pr;
var
      x, y, z : integer;      
begin
      readln(x);
      readln(y);
      if (x>y) then z:=x*y
      else z:=x+y;
      writeln(z);      
end.




Pa.6.6


program pr;
var
      x, n : integer;      
begin
      x:=7;
      for n:=1 to 100 do writeln(x);      
end.




Pa.6.7


program pr;
var
      n : integer;      
begin      
      for n:=1 to 100 do writeln(n);      
end.




Pa.6.8


program pr;
var
      s, n : integer;      
begin      
      s:=0;
      for n:=1 to 100 do s:=s+n;
      writeln(s);      
end.




Pa.6.9


program pr;
var
      s, n, x : integer;      
begin      
      s:=0;
      for n:=1 to 10 do
            begin
                  readln(x);
                  s:=s+x;
            end;
      writeln(s);      
end.




Pa.6.10


program pr;
var
      s, n : integer;      
begin      
      s:=0;
      for n:=100 to 200 do s:=s+n;
      writeln(s);      
end.




Pa.6.11


program pr;
var
      s, n : integer;      
begin      
      s:=0;
      for n:=1 to 10 do
            if n mod 2=1 then s:=s+n;
      writeln(s);      
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007