Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.01.2017 22:02
- Информатика
- remove_red_eye 3449
- thumb_up 37
Ответы и объяснения 1
ussr,usa,peace:integer;
begin
for u:=1 to 9 do
for s:=0 to 9 do
for r:=0 to 9 do
if (us)and(ur)and(sr) then
begin
ussr:=u*1000+s*100+s*10+r;
for a:=0 to 9 do
if (au)and(as)and(ar) then
begin
usa:=u*100+s*10+a;
peace:=ussr+usa;
if (peace>9999)and(peace div 100 mod 10 = a)
and(peace div 1000 mod 10 = peace mod 10)
then writeln(u,s,s,r,'+',u,s,a,' = ',peace);
end;
end;
end.
Результат:
9338+932 = 10270
9447+943 = 10390
- 24.01.2017 00:15
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.