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
// Внимание! Если программка не работает, обновите версию!
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов