4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var s:=ReadlnString('n=');
s:=('0'*(4-s.Length)+s);
Writeln(Ord(s[:3].ToInteger=s[3:].Inverse.ToInteger));
end.
Какую скожи мне паже ????
носок мозоль георгин помидор - мозоль
<em>озимь цитадель фланель панцирь - панцирь</em>
<u>подстаканник подорожник подснежник подлокотник .- подорожник</u>