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
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов