var a: array[1..15] of integer; count,count_odd,num,sum,mult: integer;
begin count := 1; count_odd := 1; num := 3; sum := 0; mult := 1; while count <= 15 do begin a[count] := num; count := count + 1; num := num + 3; end; while count_odd <= 15 do begin sum := sum + a[count_odd]; mult := mult * a[count_odd]; count_odd := count_odd + 2; end; writeln('Массив из 15 элементов: 3, 6, 9, ..., 45'); writeln('Сумма элементов с нечетными индексами: ', sum); writeln('Произведение элементов с нечетными индексами: ', mult); end.
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.
Пример ввода: Очень много яков и антилоп Пример вывода: антилоп и много Очень яков
