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.
Объяснение:
1. Строка заголовка
2. Строка главного меню
3. Стандартная панель
4. Строка свойств
5. Панель инструментов
6. Линейки
7. Рабочий лист
8. Цветовая палитра
9. Ползунок палитры цветов
10. Ползунок документа