//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
<span>x = 1250
a = x div 8 = 1250 div 8 = 156
b = a mod 10 div 3 = 156 mod 10 div 3 = 6 div 3 = 2</span>
От слова рота к слову полк. рота , ____ , ____ , ____ , ____ , полк. бант , __ , __ , __ , __ , коса море , __ , __ , __ , __ ,
ИРИНА9997 [108]
<span>рота- роза- лоза- поза- пола- полк
бант- бунт- бурт- борт- корт- кора- нора
море- горе- гора- нора- нога- нуга- дуга- душа- суша
миг- маг- май- чай- час- чес- вес- век </span>
См. фото.............................