Var a,s1,s2:integer; begin read (a); if (a>=1000)and (a<=9999)then begin s1:=(a mod 10) + ((a mod 1000) div 100); s2:=(a div 1000) + ((a mod 100) div 10); if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах'); if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах'); if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах'); end else writeln ('Вы ввели не 4-ёхзначное число'); end.
Ирина и Тимур = не информатика Камилла и Эльдар = не информатика Тимур = боится физики Камилла, Тимур = не литература, но плавают Тимур и Камилла = поздравили математика Ирена = cожалеет мало времени на литературу победители по: физике, математике, информатике, литературе и географии. Залим - информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются) Тимур - не физика, не литература, не математика, не информатика, значит география Камилла - не информатика, не литература, не математика, уже не география => Физика Ирена - не информатика, не физика, не география => Литература Эльдар - Математика
Відповідь:
[va r] [va1r]
Пояснення: