Вопрос по информатике:
Помогите сделать программу по информатике
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.07.2018 23:45
- Информатика
- remove_red_eye 1440
- thumb_up 58
Ответы и объяснения 1
function summ(x:longint):byte; {возвращает сумму цифр числа}
var
k,l:byte;
y:longint;
begin
y:=x;
l:=0;
while (y0) do
begin
k:=y mod 10;
y:=y div 10;
l:=l+k
end;
summ:=l;
end;
var
w1,w2,i,j,count:longint;
n,m:byte;
begin
count:=0;
for j:=0 to 999999 do
begin
w1:=j div 1000;
w2:=j mod 1000;
if summ(w1) = summ(w2)
then begin
count:=count+1;
writeln(j,' --> ',count);
end;
end;
end.
эта программма для Паскаля))
- 11.07.2018 23:35
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.