Паскаль (школьный) Помогите, пожалуйста Автомат получает на вход четырехзначное число и вычисляет сумму четных цифр и сумму нечетных цифр и записывает результат в порядке не возрастания

Паскаль (школьный) Помогите, пожалуйста Автомат получает на вход четырехзначное число и вычисляет сумму четных цифр и сумму нечетных цифр и записывает результат в порядке не возрастания
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы