===== PascalABC.NET =====
begin
ReadlnString
.ToWords
.Select(w -> w.Inverse)
.JoinIntoString(' ')
.Print
end.
Для второго рисунка в программе вместо y+8 шаг 4 надо взять y+4 шаг 2
Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
1) x=x+x и так 2 раза => x= 2*(5+5)=10*2=20
2)y=y*4 => y=5*4=20
1. архивирование данных 2. отправка данных по электронной почте, так быстрее прикрепятся к письму, потому что меньше объём 3. многие программы читают данные только из архивов, а не из первоначальных папок