Напишите программу определить кол-во и сумму четных чисел .последовательность чисел оканчивантся 0.программа должна вывести 2 числа ,первое: длину,последовательность ,второе число: сумму четных чисел числа при вводе 4,60,15,0

291

446

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

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

sviridovaliza19

Информатика

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

Program n1; var a,k,sum: integer; begin readln(a); k: =0; sum: =0; while a< > 0 do begin if (a mod 2=0) then sum: =sum+a; k: =k+1; readln(a); end; writeln(k); writeln(sum); end.

Aaaalisa

Информатика

4,6(71 оценок)

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var a: =matrrandom(6,5,-50,50); a.println(4); writeln; var res: =new int64[6]; for var i: =0 to 5 do if i.iseven then res[i]: =a.row(i).aggregate(int64(,y)-> x*y) else res[i]: =a.row(i).sum; writeln('результаты: '); res.println(newline) end. пример -32 22 12 8 -38 45 22 -12 26 -2 -46 12 19 42 -1 19 5 29 -41 -41 10 -23 2 -19 10 -4 22 15 34 34 результаты: 2568192 79 440496 -29 87400 101