[Пересланное сообщение]
Глеб Машенцев, сегодня в 12:59
[Пересланное сообщение]
Артём Кузнецов, 26 марта в 16:30
[4 пересланных сообщения]
Артём Кузнецов, 26 марта в 16:24
8 Var a,b,c,sum:real;
n,r:integer;
s,s1,s2,s3:string;
begin
writeln('Введите сумму трёх чисел:');
read(s);
n := Pos('+', s);
s1 := Copy(s, 1, n-1);
Delete(s, 1, n);
Val(s1,a,r);
n := Pos('+', s);
s2 := Copy(s, 1, n-1);
Delete(s, 1, n);
Val(s2,b,r);
s3 := Copy(s, 1, length(s));
Val(s3,c,r);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
end.
9
Var a,b,c,sum:real;
n1,n2,n,r:integer;
z1,z2:char;
s,s1,s2,s3:string;
begin
writeln('Введите выражение из трёх чисел:');
read(s);
n1 := Pos('+', s);
n2 := Pos('-', s);
if (n1=0) then begin
n := n2;
z1:='-';
end
else if (n2=0)then begin
n:=n1;
z1:='+';
end
else if (n1>n2) then begin
n := n2;
z1:='-';
end
else begin
n:=n1;
z1:='+';
end;
s1 := Copy(s, 1, n-1);
Delete(s, 1, n);
Val(s1,a,r);
n1 := Pos('+', s);
n2 := Pos('-', s);
if (n1=0) then begin
n := n2;
z2:='-';
end
else if (n2=0)then begin
n:=n1;
z2:='+';
end
else if (n1>n2) then begin
n := n2;
z2:='-';
end
else begin
n:=n1;
z2:='+';
end;
s2 := Copy(s, 1, n-1);
Delete(s, 1, n);
Val(s2,b,r);
s3 := Copy(s, 1, length(s));
Val(s3,c,r);
if(z1='+')and(z2='+')then sum:=a+b+c;
if(z1='-')and(z2='+')then sum:=a-b+c;
if(z1='+')and(z2='-')then sum:=a+b-c;
if(z1='-')and(z2='-')then sum:=a-b-c;
writeln(a,z1,b,z2,c,'=',sum);
end.
7
Var a,b,c,sum:real;
n,r:integer;
s,s1,s2,s3:string;
begin
writeln('Введите разность двух чисел:');
read(s);
n := Pos('-', s);
s1 := Copy(s, 1, n-1);
Val(s1,a,r);
s2 := Copy(s, n+1, length(s));
Val(s2,b,r);
sum:=a-b;
writeln(a,'-',b,'=',sum);
end.
10
Var a,b,c,sum:real;
n1,n2,n3,n,r:integer;
z1,z2:char;
s,s1,s2,s3:string;
begin
writeln('Введите выражение из трёх чисел:');
read(s);
n1 := Pos('+', s);
n2 := Pos('-', s);
n3 := Pos('*', s);
if (n1=0) then begin
n1:=10000;
end;
if (n2=0)then begin
n2:=10000;
end;
if (n3=0)then begin
n3:=10000;
end;
if (n1<n2) then begin
n := n1;
z1:='+';
end
else begin
n := n2;
z1:='-';
end;
if (n3<n) then begin
n := n3;
z1:='*';
end;
s1 := Copy(s, 1, n-1);
Delete(s, 1, n);
Val(s1,a,r);
n1 := Pos('+', s);
n2 := Pos('-', s);
n3 := Pos('*', s);
if (n1=0) then begin
n1:=10000;
end;
if (n2=0)then begin
n2:=10000;
end;
if (n3=0)then begin
n3:=10000;
end;
if (n1<n2) then begin
n := n1;
z2:='+';
end
else begin
n := n2;
z2:='-';
end;
if (n3<n) then begin
n := n3;
z2:='*';
end;
s2 := Copy(s, 1, n-1);
Delete(s, 1, n);
Val(s2,b,r);
s3 := Copy(s, 1, length(s));
Val(s3,c,r);
if(z1='+')and(z2='+')then sum:=a+b+c;
if(z1='+')and(z2='-')then sum:=a+b-c;
if(z1='+')and(z2='*')then sum:=a+b*c;
if(z1='-')and(z2='-')then sum:=a-b-c;
if(z1='-')and(z2='+')then sum:=a-b+c;
if(z1='-')and(z2='*')then sum:=a-b*c;
if(z1='*')and(z2='*')then sum:=a*b*c;
if(z1='*')and(z2='+')then sum:=a*b+c;
if(z1='*')and(z2='-')then sum:=a*b-c;
writeln(a,z1,b,z2,c,'=',sum);
end.
Артём Кузнецов, 26 марта в 16:24
12
Var st:string;
i:integer;
Begin
writeln('Введите строку:');
read(st);
for i:=1 to Length(st)do begin
if st[i]='а' then st[i]:='б'
else if st[i]='А' then st[i]:='Б'
else if st[i]='б' then st[i]:='а'
else if st[i]='Б' then st[i]:='А'
end;
writeln(st);
end.
Артём Кузнецов, 26 марта в 16:25
13
const MAX = 100;
var c: char;
i, N, count, Year, Gol: integer;
fam: array[1..MAX] of string;
name: array[1..MAX] of string;
Gool: array[1..MAX] of integer;
begin
writeln('Введите количество футболистов: ');
readln(N);
count := 0;
for i:=1 to N do begin
fam[i]:='';
name[i]:='';
repeat read(c);
fam[i]:=fam[i]+c;
until c = ' ';
repeat read(c);
name[i]:=name[i]+c;
until c = ' ';
read(Year);
readln(Gol);
Gool[i]:= Gol;
end;
writeln(' ');
for i:=1 to N do begin
if (Gool[i]>2) then
writeln(fam[i],' ',name[i]);
end;
end.
14
const MAX = 100;
var c: char;
i,r, N, count, Year, Gol: integer;
fam: array[1..MAX] of string;
name: array[1..MAX] of string;
Gool: array[1..MAX] of integer;
begin
writeln('Введите количество футболистов: ');
readln(N);
count := 0;
for i:=1 to N do begin
fam[i]:='';
name[i]:='';
repeat read(c);
fam[i]:=fam[i]+c;
until c = ' ';
repeat read(c);
name[i]:=name[i]+c;
until c = ' ';
read(Year);
readln(Gol);
Gool[i]:= Gol;
end;
writeln(' ');
r:=1;
for i:=2 to N do begin
if (Gool[i]>Gool[i-1]) then
r:=i;
end;
writeln(fam[r],' ',name[r],' ',Gool[r]);
end.
Артём Кузнецов, 26 марта в 16:25
15 const MAX = 100;
var c: char;
ex:string;
i,j,r, N, count, Year, Gol: integer;
fam: array[1..MAX] of string;
name: array[1..MAX] of string;
Gool: array[1..MAX] of integer;
begin
writeln('Введите количество футболистов: ');
readln(N);
count := 0;
for i:=1 to N do begin
fam[i]:='';
name[i]:='';
repeat read(c);
fam[i]:=fam[i]+c;
until c = ' ';
repeat read(c);
name[i]:=name[i]+c;
until c = ' ';
read(Year);
readln(Gol);
Gool[i]:= Gol;
end;
writeln(' ');
For i:=1 To N-1 Do
For j:=1 To N-i Do
If fam[j]>fam[j+1]
Then
Begin
Ex:=fam[j];
fam[j]:=fam[j+1];
fam[j+1]:=Ex;
Ex:=name[j];
name[j]:=name[j+1];
name[j+1]:=Ex;
r:=gool[j];
gool[j]:=gool[j+1];
gool[j+1]:=r;
End;
For i:=1 To N Do
if (gool[i]>0) then
writeln(fam[i],' ',name[i]);
end.