Имеется ряд последовательных целых положительных чисел от 120500 до 210800. определите сколько среди них чисел у которых сумма не равна 12. для получения результата напишите программу
Var s:string; i:integer; begin readln(s); while i<length(s) do begin inc(i); if s[i]=',' then insert(' ',s,i+1); end; writeln(s); end.
Пример ввода: Some,awesome,test,text, Пример вывода: Some, awesome, test, text,
//2
Var s:string; i,k,j:integer; ars:array of string; begin readln(s); setlength(ars,length(s)); k:=0; for i:=1 to length(s) do begin if (s[i]=' ') and (s[i+1]<>' ') and (i<>length(s)) then inc(k) else ars[k]:=ars[k]+s[i]; end; for i:=0 to k-1 do for j:=i+1 to k do if LowerCase(ars[i])>LowerCase(ars[j]) then begin s:=ars[i]; ars[i]:=ars[j]; ars[j]:=s; end; for i:=0 to k do writeln(ars[i]); end.
Пример ввода: Очень много яков и антилоп Пример вывода: антилоп и много Очень яков
ответ : 89297
Код для вычисления представлен на Python'e