Предмет: Информатика, автор: DevyAndr

Информатика,Паскаль,помогите пожалуйста! Нужен код полностью.

Приложения:

Solomina2: 2ю задачу плохо видно
Solomina2: а нет, нормально

Ответы

Автор ответа: Solomina2
0

1я задача:

var  

  N, sum1, sum2, res: integer;

begin

 readln(N);  

 sum1 := N mod 10;

 N := N div 10;  

 while N > 0 do begin

   if N div 10 = 0 then

     sum1 := sum1 + N

   else

     sum2 := sum2 + N mod 10;  

   N := N div 10;

 end;  

 writeln(max(sum1,sum2),min(sum1,sum2));

end.


Похожие вопросы
Предмет: Литература, автор: kobakovdanil519
Предмет: Русский язык, автор: razzen
Предмет: Математика, автор: алисаСКР288