. , : i; j. . , ( ). , (), .. . , .
, .
, , .
: , , , , .
-x[1,1], x[2,2] .., ( ) n+1, .. i+j=n+1.
. 55 .
.
program P;
var
a: array [1..5,1..5] of longint;
i,j,s: longint;
begin
for i:=1 to 5 do
for j:=1 to 5 do read (a[i,j]);
s:=0;
for i:=1 to 5 do s:=s+a[i,6-i];
writeln (s);
end.
. . , (0, 1,2,...), (, , ,...), (, , ,...).
, (, ) , , .
, ( , ). 255 .
, . , , .
: .
1. (Char).
: char, (var x: char).
: , , . 0 255.
char : sh:= '*'; := '3'; summa:='G'.
2. (string).
, . . . . .
|
|
string :
var s1: string[30]; s2: string.
30 s1.
. . ,
12 abc,., .
.
program P1;
var
s, p, x: string;
d, I: longint;
begin
readln (s);
x: = 12abc,.;
p: = ;
d: = length (s);
for i:=1 to d do
if pos (s[i],x)=0
then p: = p+s[i];
writeln (p);
end.
. . , {5, 2, 4, 3, 1}, {0, 1, 2, 3, 4, 5}.
. :
. a1,a2,,an. , . , , , .
. a1,a2,,an. . i i+1. i > i+1, . , .
. a1,a2,,an. . . a1,a2,,ai , .. 1 < 2 <... < i, i+1 , . , i+1 n .
. .
.
programm P;
var
a: array [1..10] of longint;
i,j,s,k: longint;
begin
for i:=1 to 10 do readln(a[i]);
for j:=1 to 9 do
begin
s:=a[j]; k:=j;
for i:=j+1 to 10 do
if a[i]<s
then begin s:=a[i]; k:=i; end;
a[k]:=a[j];
a[j]:=s;
end;
for i:=1 to 10 do writeln(a[i]);
end.
2.1.5
. Pascal , . , .
, . . , . : sqrt ( ), abs ( ), sqr ( ), .
real. : writeln(s:0:2), 2 s.
. (x1,y1) (x2,y2) r1 r2. , (x1,y1) (x2,y2) r1+r2.
|
|
.
program P1;
var
x1,y1,r1,x2,y2,r2,d: real;
Begin
readln (x1);
readln (y1);
readln (r1);
readln (x2);
readln (y2);
readln (r2);
d: = sqrt (sqr (x1-x2)+sqr(y1-y2));
if d <=r1+r2
then writeln (Yes)
else writeln (No);
end.