В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Sergeeva1703
Sergeeva1703
05.04.2023 13:18 •  Информатика

6) вводится последовательность чисел. конец ввода – число > 100. определить количество четных чисел, а каждое нечетное возвести в квадрат. 7) вводится последовательность чисел. конец ввода – отрицательное число. определить сумму цифр младших разрядов всех чисел, за исключением отрицательного. 8) дано число. вывести по отдельности все его цифры, определить их сумму, сумму только нечетных цифр, сумму старшего и младшего разрядов.

Показать ответ
Ответ:
zka20zka20
zka20zka20
07.10.2020 01:07
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

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

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

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

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

begin
  var n:=ReadInteger('n=');
  var St:=new Stack <integer>;
  while n>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->x.IsOdd).Sum);
  Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last);
end.

Пример
n= 53214212
5,3,2,1,4,2,1,2
Сумма цифр: 20
Сумма нечетных цифр: 10
Сумма старшего и младшего разрядов: 7
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота