// 8 begin var arr := ArrRandom(10); Sort(arr); arr.Println; Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline + 'Count = ', arr.Where(x -> x mod 5 = 0).Count); end.
// 9 begin var arr := ArrRandom(15); arr := arr.OrderByDescending(x -> x).ToArray; arr.Println; Print('array elements squares sum is = ', arr.Sum(x -> x * x)); end.
Function t10_q(x,q:longint):string; const s='0123456789ABCDEFGHI'; var t,m:longint; r:string; begin t:=x; r:=''; while t>=q do begin m:=t mod q; r:=s[m+1]+r; t:=t div q end; t10_q:=s[t+1]+r end;
{ тестирование } var q,n:longint; begin Write('Введите основание системы счисления (2-20): '); Readln(q); Write('Введите натуральное число для перевода: '); Readln(n); Writeln(n,'(10)=',t10_q(n,q),'(',q,')') end.
Тестовое решение: Введите основание системы счисления (2-20): 16 Введите натуральное число для перевода: 16350 16350(10)=3FDE(16)
Так как 1буква гласная 2 согласная