1. имеются три коробки с кубиками. в одной находятся красные кубики, в другой- синие, в третьей могут - id1027235120200520 от morozovnikitamotop 20.05.2020 09:36

Question

Информатика: 1. имеются три коробки с кубиками. в одной находятся красные кубики, в другой- синие, в третьей могут лежать и красные, и синие. на каждой коробке раньше была табличка, верно указывающая ее содержимое, но некто перепутал их так, что теперь каждая табличка указывает содержимое неправильно. из какой коробки, не глядя, надо вынуть один кубик, чтобы безошибочно определить, что лежит во всех трех коробках? 1. с табличкой синие кубики 2. с табличкой красные кубики 3. с табличкой синие и красные кубики

morozovnikitamotop · Accepted Answer

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.

MOGZ ответил