profile
Опубликовано 5 лет назад по предмету Информатика от vladturaga

turbo pascal хелп
третие задание

  1. Ответ
    Ответ дан Gleb1Kosyrev
    Var
      n,i:integer;
      ar:array[1..100] of integer;

    function NumSum(n:integer):integer;
    Var
      res:integer;
    begin
    res:=0;
    while n<>0 do
      begin
        res:=res+n mod 10;
        n:=n div 10;
      end;
    NumSum:=res;
    end;

    begin
    readln(n);
    for i:=1 to n do
    readln(ar[i]);
    for i:=1 to n do
    writeln(ar[i],'-',NumSum(ar[i]));
    end.

    Пример ввода:
    123
    0
    23
    203
    1
    Пример вывода:
    123-6
    0-0
    23-5
    203-5
    1-1
Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

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