Напишите программу определить кол-во и сумму четных чисел .последовательность чисел оканчивантся 0.программа должна вывести 2 числа ,первое: длину,последовательность ,второе число: сумму четных чисел числа при вводе 4,60,15,0
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.
// 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.
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
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.