===== PascalABC.NET =====
begin
ReadlnString
.ToWords
.Select(w -> w.Inverse)
.JoinIntoString(' ')
.Print
end.
Нормальный
Как минимум около 50 дотягивает
d) 101₂ = 1*2²+0*2¹+1*2⁰ = 4+1 = 5₁₀
210₃ = 2*3²+1*3¹+0*3⁰ = 18+3 = 21₁₀
101₂ + 210₃ = 5₁₀ + 21₁₀ = 26₁₀
e) 404₆ = 4*6² + 0*6¹ + 4*6⁰ = 144 + 4 = 148₁₀
205₈ = 2*8² + 0*8¹ + 5*8⁰ = 128+5 = 133₁₀
404₆ - 205₈ = 148₁₀ - 133₁₀ = 15₁₀
f) 56₁₆ = 5*16¹+6*16⁰ = 80+6= 86₁₀
37₇ - <em>в 7сс число не может содержать цифры 7 в записи. Либо опечатка в задании, либо проверка на внимательность. </em>
Как-то так... )))
Смотри картинку...
Формула для надбавки:
=ЕСЛИ(B2<=15;0;ЕСЛИ(B2>25;A2*0,3;A2*0,15))
=ЕСЛИ(стаж<=15;0;ЕСЛИ(стаж>25;оклад*0,3;оклад*0,15))
Формула для всего:
=A2+C2
=оклад+надбавка
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>