Паскаль (школьный) Помогите, пожалуйста Автомат получает на вход четырехзначное число и вычисляет сумму четных цифр и сумму нечетных цифр и записывает результат в порядке не возрастания
Паскаль (школьный)
Помогите, пожалуйста
Автомат получает на вход четырехзначное число и вычисляет сумму четных цифр и сумму нечетных цифр и записывает результат в порядке не возрастания
Ответ(ы) на вопрос:
Гость
Var
A,Sc,Sn:integer;
Begin
Sc:=0;
Sn:=0;
Write('Введите четырёхзначное число: ');ReadLn(A);
//Если чётных(0,2,4,6,8) и нечётных(1,3,5,7,9) чисел:
if (A div 1000) mod 2 = 0 then Sc:=Sc+A div 1000
else Sn:=Sn+A div 1000;
if ((A div 100) mod 10) mod 2 = 0 then Sc:=Sc+(A div 100) mod 10
else Sn:=Sn+(A div 100) mod 10;
if ((A div 10) mod 10) mod 2 = 0 then Sc:=Sc+(A div 10) mod 10
else Sn:=Sn+(A div 10) mod 10;
if (A mod 10) mod 2 = 0 then Sc:=Sc+(A mod 10)
else Sn:=Sn+(A mod 10);
if Sc
Не нашли ответ?
Похожие вопросы