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.
|