GiG, что-то вроде этого: program zzz; VAR N : longint; s1, s2 : integer; BEGIN Write ("Vvedite chislo N: "); Readln (N); s1 := 0; s2 := 0; s1 := N mod 10; N := N div 10; s1 := s1 + (N mod 10); while n > 99 do n := n div 10; s2 := N mod 10; N := N div 10; s2 := s2 + N; if s1 = s2 then Writeln ("Summa pervyh 2-h i poslednih 2-h chisel ravna.") else Writeln ("Summa NE ravna."); END.
Ссылка на пост
19 мар 2010 в 22:26