<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
<span>Текст,записанный с использованием 64 символьного алфавита состоит из 52 символов.То обьем текста равен 3 328 бит</span>
54 _7+x=320_5
39_10+x=85_10
x=85-39=46
46_10=144_6
Ответ:
a = int(input())
b = int(input())
if a==0 and b!=0: # если a=0 и b не равен 0 , то решения
#быть не может
print("no solution") # 0 умноженное на любое число даст 0
if a==0 and b==0: # в случае же когда a и b = 0 то x может
print("many solutions") #принимать любое значение
if a!=0 and b!=0:
print ("x будет равен :" , a//b) #вывод решения уравнения