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.
// 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.
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.