tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислить ср.арифметическое
Вычислить ср.арифметическое чётных и нечётных цифр введённого числа. через паскаль.
NIKESHNELY
3 12.08.2019 01:10
0
Ответы
kokosik23
04.10.2020 12:22
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var s:=ReadlnString('->');
var a:=s.ToCharArray.Select(c->c.ToDigit).Partition(i->i.IsOdd);
Writeln('Ср.арифм. нечетных: ',a[0].Average:0:4,
', ср.арифм. четных: ',a[1].Average:0:4)
end.
Пример:
-> 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Anna18181818181818
14.09.2019 03:50
составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 затем элементы с четными индексами удваивает а элементы с нечетными индексами...
Nika7854
05.06.2019 03:40
Написать программу, которая выводит на экран вопрос: в каком году появились первые эвм? и ждёт ответа.в зависимости от ответа, программа сообщает: вы правы! или вы ошиблись, прочитайте...
Zefirka8540
05.06.2019 03:40
Тяжело ли стать програмистом и почему...
milanka28082006
06.08.2019 06:00
Пакет программ , работой компьютера и между человеком и компьютером...
Miras19932708
06.08.2019 06:00
Решить ) жители планеты пинг используют алфавит из 64 знаков,а жители планеты понг -из 128 знаков. для жителей планеты сообщение из 10 знаков несет больше информации и на сколкьо...
Akureyri
28.05.2019 14:00
Даны два числа а и в если первое больше второго найти его утроенную разность...
moki2
28.05.2019 13:50
Робота в паскале найти сумму целых положительных чисел , кратных 3 и меньше 30....
Марина36843
16.03.2020 18:15
Найдите сторону правильного шестиугольника, описанного около окружности, радиус которой равен 33√3...
danik174
16.03.2020 18:15
НЕ СПИСЫВАЙТЕ У ДРУГИХ И НЕ КОПИРУЙТЕ. ответить на во О чём заставил вас задуматься рассказ А. П. Платонова Никита?»....
GiViS
16.03.2020 18:15
Дано последовательное соединение R1=6 Ом R2=2 Ом U1=12 В Найти I-? U2-?...
Популярные вопросы
Выпиши в левую колонку словосочетание в которых есть есть слова с буквой а...
3
По 3 синоніма до слів заощаджувати , веселий , хитрий....
2
Подберите обобщающее слово к однородным членам предложения поставте его перед...
1
Составьте 10 предложений с этими словами - сый-сияпат (подарок), ықылас (желание),...
3
Доброго времени суток! ! : в школьном буфете 45 стульев, а столов 9. во сколько...
2
Решить миша и алеша побежали навстречу друг другу,когда расстояние между ними...
1
4x=36 0.3y=0.225 0.5x+7=10 4y+6.6=15y 0.3y+17=19.4...
1
Какие ещё дополнительные платы и ограничения были у крестьянина...
2
Что такое безударные в корнях проверяемые согласные в корне слова непроверяемые...
3
Решить пример минус одна шестая умноженная на минус девять...
2
begin
var s:=ReadlnString('->');
var a:=s.ToCharArray.Select(c->c.ToDigit).Partition(i->i.IsOdd);
Writeln('Ср.арифм. нечетных: ',a[0].Average:0:4,
', ср.арифм. четных: ',a[1].Average:0:4)
end.
Пример:
-> 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000