// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:='информатика'; Writeln(s[3:8],NewLine,s[2]+s[4:8]) end.
Результат форма норма
dashanna04225
03.02.2021
// Задача решается длинной арифметикой VAR a,b,c: String; i, s: LongInt;
Procedure Sum(var a, b: String); Var i, p, c1,c2: LongInt; Begin while (Length(a) < Length(b)) do a := '0' + a; while (Length(b) < Length(a)) do b := '0' + b;
p := 0; for i := Length(a) downto 1 do begin c1 := Ord(a[i]) - 48; c2 := Ord(b[i]) - 48;
a[i] := Chr(48 + (c1 + c2 + p)mod 10); p := (c1 + c2 + p) div 10; end;
if (p > 0) then a := Chr(p + 48) + a; End;
BEGIN a:= '2013'; b:= '2014';
for i := 3 to 2014 do begin Sum(a, b); c := a; a := b; b := c; end;
Writeln(c);
s := 0; for i := 1 to Length(c) do s := s + Ord(c[i]) - 48;
Writeln('Сумма цифр числа = ', s); END.
tanu0618
03.02.2021
1. телефонная линия, поскольку работает на низкой частоте, радиоволны (wi-fi, спутниковая связь) плохо проникают в землю. коаксиальный кабель, витая пара, оптоволоконная линия - экономически нецелесообразны для передачи небольших объемов данных (речь, звук) 2. Для локальной сети подойдет витая пара, как наиболее экономически целесообразная в локальной сети, коаксиальный кабель считает устаревшим, с узкой полосой пропускания, wi-fi может быть использован, если площадь здания небольшая, а коэффициент поглощения радиоволн стенами минимален. 3. В обсерватории подойдет спутниковый канал связи, поскольку тарелку на спутник возможно настроить, но для относительно медленных соединения может быть использован радиоканал. 4. поскольку завод секретный, использовать радиоканалы не безопасно. Подойдет оптоволоконная линия и витая пара, имеющие наиболее высокую пропускную 5 Радиовещательные компании ведут трансляцию по коаксиальному кабелю, поскольку в большинстве случает не требуется высокая скорость для передачи звука, но в то же время требуется помехозащищенность, но в зависимости от расположения передающего центра и абонентов, могут быть использованы любые трансляции за исключением телефонной линии.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Из слова "информатика" путем вырезок и склеек его букв получить слова "форма" и "норма".
// Внимание! Если программа не работает, обновите версию!
begin
var s:='информатика';
Writeln(s[3:8],NewLine,s[2]+s[4:8])
end.
Результат
форма
норма