6) Вводится последовательность чисел. Конец ввода число amp;gt;100. Найти количество

6) Вводится последовательность чисел. Конец ввода число gt;100. Найти количество четных чисел, а каждое нечетное возвести в квадрат.
7) Вводится последовательность чисел. Конец ввода отрицательное число. Найти сумму цифр младших разрядов всех чисел, за исключением отрицательного.
8) Дано число. Вывести по отдельности все его числа, определить их сумму, сумму только нечетных цифр, сумму старшего и младшего разрядов.

Задать свой вопрос
Артём Вчерашняя
2 всю после замены
Oleg Halmuratov
ты наихороший каво я встетил кто в этом разберается во время всего прибывания )
Валерия Груойг
Пока не видел , что отвечали
Ульяна Карпельева
ты 3 магистр кто ответил другие статусом ниже
Мякисева Лидия
Верно говорят что каждый человек на то то горазд одному одно просто иному другое )
1 ответ
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile(x-gt;xlt;=100).ToArray;
  Writeln('Количество четных чисел одинаково ',a.Where(x-gt;x.IsEven).Count);
  a.Transform(x-gt;x.IsOdd?x*x:x); a.Println
end.

Пример
35 24 38 83 110
Количество четных чисел равно 2
1225 24 38 6889

begin
  Writeln('S=',ReadSeqIntegerWhile(x-gt;xgt;=0).Select(x-gt;x mod 10).Sum)
end.

Пример
16 24 19 21 45 0 23 -21
S=28

begin
  var n:=ReadInteger('n=');
  var St:=new Stack lt;integergt;;
  while ngt;0 do begin
    St.Push(n mod 10);
    n:=n div 10
    end;
  var a:=St.ToArray;
  a.Println(',');
  Writeln('Сумма цифр: ',a.Sum);
  Writeln('Сумма нечетных цифр: ',a.Where(x-gt;x.IsOdd).Sum);
  Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last);
end.

Пример
n= 53214212
5,3,2,1,4,2,1,2
Сумма цифр: 20
Сумма нечетных цифр: 10
Сумма старшего и младшего разрядов: 7
Толян Кундуев
Все работает СПАСИБО
Oleg
Постараюсь запастись еще рауты на оставшееся задания.)
Мирослава Сидляревич
Эникей , есть такие люди которые просто пишут что угодно , но ты не таковой в для тебя я теснее верую ,а скачал я версию 3.3
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт