Http://on-line-teaching.com/excel/img/2007/lsn027_1.jpg
var s1,s2,c1,c2:string;
i:integer;
Begin
read(s1,c1,c2);
for i:= 1 to length(s1) do begin
s2:=s2 + s1[i];
if s1[i]=c1 then s2:=s2+c2;
end;
writeln(s2);
End.
Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>
Ответ:Киллограм - во 2 правильный ответ
Объяснение:
<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
uses NumLibABC;
begin
var A := new Matrix(3, 3, -4, 1, 2, 5, 0, 7, 6, 2, 4);
var B := new Matrix(3, 4, 5, -1, 3, 4, 2, 0, 1, 6, 4, -3, 2, 3);
var C := A * B;
C.Println(5, 0)
end.