Вопрос по информатике:
С клавиатуры вводится два пятизначных числа найти среднее арифмитичесое всех чётных цифр в наименьшем из чисел
Пожаловаться
- 08.04.2018 07:40
- Информатика
- remove_red_eye 17301
- thumb_up 34
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer; Read(a,b);
a:=min(a,b);
(var s,var k):=(0,0);
while a>0 do begin
b:=a mod 10;
if b.IsEven then (s,k):=(s+b,k+1);
a:=a div 10
end;
if k>0 then Writeln(s/k:0:3)
else Writeln('В меньшем числе нет четных цифр')
end.
Пример
64372 40269
3.000
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer; Read(a,b);
a:=min(a,b);
(var s,var k):=(0,0);
while a>0 do begin
b:=a mod 10;
if b.IsEven then (s,k):=(s+b,k+1);
a:=a div 10
end;
if k>0 then Writeln(s/k:0:3)
else Writeln('В меньшем числе нет четных цифр')
end.
Пример
64372 40269
3.000
Пожаловаться
- 09.04.2018 02:04
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы