A) A:=round(10*2 div 2 mod 5 / 3) - trunc (sqrt(4))=
round(20 div 2 mod 5/3)-trunc(2)=round(10 mod 5/3)-2=round(0/3)-2=-2
b) M:=succ(round (15 / 2) -pred (13))=suncc(round(7.5)-12)=succ(8-12)=suncc(-4)=-3
<span>c) Y:=round(13.99) mod 5+ trunc(sqrt(121))-125 div trunc(100/8)=
14 mod 5+trunc(11)-125 div trunc(12.5)=4+11-125 div 12=15-10=5</span>
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
••-- •-•• •• •-•- (Юлия)
-- •- - • -- •- - •• -•- •- (математика)
Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16