// 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
1 Посмотрите на данное вам число и определите количество его цифр. Пример: напишите 5827 в развернутом виде. Прочитайте число вслух: пять тысяч восемьсот двадцать семь. Обратите внимание, что в этом числе есть четыре цифры. В результате развернутая форма будет содержать четыре слагаемых. 2 Перепишите число в виде суммы его цифр, оставив между ними некоторое расстояние, чтобы умножить каждую цифру на некоторую цифру (об этом далее). Пример: 5827 перепишите так: 5 + 8 + 2 + 7 3 Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево). Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево). 7 соответствует единицам (значение = 1). 2 соответствует десяткам (значение = 10). 8 соответствует сотням (значение = 100). 5 соответствует тысячам (значение = 1000). 4 Умножьте каждую цифру данного числа на значение соответствующей ей позиции. Пример: [5 * 1000] + [8 * 100] + [2 * 10] + [7 * 1] 5 Запишите окончательный ответ, так как сумма произведений является развернутой формой исходного числа. Пример: развернутая форма 5827: 5000 + 800 + 20 + 1
/////////////////////////