Склавиатуры вводится два пятизначных числа найти среднее арифмитичесое всех чётных цифр в наименьшем из чисел

195

359

Посмотреть ответы 2

Ответы на вопрос:

рябов2005

Информатика

4,5(74 оценок)

// 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