profile

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

Срочно! Даю 40 баллов


Напишите программу в паскале с оператором repeat


Дано целое число N (>0) используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр (N=63)

  1. Ответ
    Ответ дан raf1O5

    program raf105;

    var abc,a,sum,count: integer;

    begin

    write('Введите число: ');

    readln(abc);

    count:= -1;

    repeat

     a:= abc mod 10;

     sum:= sum+a;

     count:= count+1;

     abc:= abc div 10;

    until a=0;

    writeln('Сумма цифр: ',sum);

    writeln('Количество цифр: ',count);

    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Артур Альбертович Батманов
Английский язык - 6 дней назад

Можете помочь нужен рассказ на английском что моя мама работает на валберис

sasha
Физика - 1 неделя назад

Рассчитай растояние от поверхности земли, на котором сила притяжения, действующая на тело будет 5,5 раз меньшле чем на поверхности земнли. радиус земли прнять равным 6400 помогите!!!!!!!!!!!

Hilzon
Физика - 2 недели назад

Какое количество теплоты потребуется чтобы расплавить 100 г льда взятого при температуре -5 а затем полученую воду нагреть до 20 градусов.

Hilzon
Физика - 2 недели назад

Сколько дров необходимо для того чтобы нагреть 50 л воды в стальном котле массой 10 кг от 15 градусов до 65 градусов? потерями тепла пренебречь.

Hilzon
Физика - 2 недели назад

Какое количество теплоты понадобится для того, чтобы в алюминиевом чайнике массой 700г вскипятьть 2кг воды? начальная температура воды 20 градусов. помогите пожалуйса решить задачу


Информация

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