// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите данные:',n); a.Println; var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7)); if s.Count=0 then Writeln('Таких чисел нет') else Writeln(s.Sum) end.
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите данные:',n); a.Println; Writeln('Четных чисел ',a.Where(x->x.IsEven).Count); Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count); end.
Const N = 3; Var A:array[1..N] of integer; S:integer:=0; b:boolean:=false; Begin For var i:=1 to N do Begin Read(A[i]); if (A[i]>9)and(A[i]<100)and(A[i] mod 10 = 7) then Begin S+=A[i]; b:=true; End; End; For var i:= 1 to N do Write(A[i],' '); WriteLn; if b then Write('S = ',S) else Write('Таких чисел нет') End.
Const N = 3; Var A:array[1..N] of integer; S,B:integer; Begin For var i:= 1 to N do Begin S:=0; A[i]:= random(65536)-32767; Write(A[i]:6,' '); B:=abs(A[i]); While B<>0 do Begin S:=S+ B mod 10; B:= B div 10; End; A[i]:=S; End; WriteLn; For var i:= 1 to N do Write(A[i]:6,' '); End.
const N = 3; Var A:array[1..N] of integer; Ch,Nch:integer; Begin For var i:=1 to N do Begin Read(A[i]); if A[i] mod 2 = 0 then Ch+=1 else Nch+=1; End; For var i:= 1 to N do Write(A[i],' '); WriteLn; WriteLn('Чёт = ',Ch); WriteLn('Нечет = ',Nch) End.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите данные:',n); a.Println;
var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7));
if s.Count=0 then Writeln('Таких чисел нет')
else Writeln(s.Sum)
end.
Пример
n= 5
Вводите данные: 45 -38 27 -17 47
45 -38 27 -17 47
74
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
function Sod(n:integer):integer;
begin
var s:=abs(n).ToString;
Result:=s.Select(c->c.ToDigit).Sum
end;
begin
var a:=ArrRandom(ReadInteger('n='),-999,999); a.Println;
a:=a.Select(x->Sod(x)).ToArray; a.Println
end.
Пример
n= 10
-252 814 -239 -157 792 -223 697 -482 616 -675
9 13 14 13 18 7 22 14 13 18
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите данные:',n); a.Println;
Writeln('Четных чисел ',a.Where(x->x.IsEven).Count);
Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count);
end.
Пример
n= 16
Вводите данные: 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
Четных чисел 9
Нечетных чисел 7