Найти сумму элементов массива, которой задается число случайным образом, от нуля до 30, удовлетворяющее условию: [0; 30] и a[i] < 15

208

490

Посмотреть ответы 2

Ответы на вопрос:

alexandra67346783

Информатика

4,4(60 оценок)

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin var a: =arrrandom(readinteger('n='),0,30); a.println; write('s=',a.where(x-> x< 15).sum) end. тестовое решение: n= 18 30 22 25 18 18 7 12 10 16 16 7 28 12 30 14 11 12 8 s=93

alexandraselivanova

Информатика

4,5(37 оценок)

Var n, m, p, k, sum, x: integer; s: string; c, i: byte; begin write('число: '); read(n); m : = n; k : = 0; while m < > 0 do begin p : = m mod 10; k : = k + 1; m : = m div 10; end; str(n, s); c : = 0; for i : = 1 to length(s) do if s[i] in ['0', '2', '4', '6', '8'] then inc(c); x : = n; sum : = 0; while (x < > 0 ) do begin sum : = sum + (x mod 10); x : = x div 10; end; writeln('количество чисел: ', k); writeln('количество четных чисел: ', c); writeln('cумма чисел : ', sum); end.