Вопрос по информатике:
Найдите и выведите на экран все двузначные числа, сумма цифр которыx не меняется при умножении на 2. (например, 27 и 27*2=54, сумма цифр чисел 27 и 54 равна 9)
Язык программирования паскаль АВС
- 08.11.2017 02:03
- Информатика
- remove_red_eye 5297
- thumb_up 36
Ответы и объяснения 1
Var i,tmp,s1,s2:integer;
begin
for i:=10 to 50 do begin
tmp:=i;
while tmp 0 do begin
s1+=tmp mod 10;
tmp:=tmp div 10;
end;
tmp:=i*2;
while tmp 0 do begin
s2+=tmp mod 10;
tmp:=tmp div 10;
end;
if (s1=s2) then write(i,' ');
s1:=0;
s2:=0;
end;
end.
- 09.11.2017 10:14
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.