nataliavik
Опубликовано 7 лет назад по предмету Информатика от nataliavik


помогите сделать программу по информатике

  1. Ответ
    Ответ дан Влад777

    function summ(x:longint):byte; {возвращает сумму цифр числа}var  k,l:byte;  y:longint;begin  y:=x;  l:=0;  while (y<>0) 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.

    эта программма для Паскаля))

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников