М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
DimazCheat
DimazCheat
21.11.2020 15:42 •  Информатика

Вывести на экран сумму цифр введенного пользователем числа(дополнительно: вывести количество разрядов)

👇
Ответ:
BrainS711
BrainS711
21.11.2020

program z1;

var a,k,s: integer;

begin

write ('a = ');

readln (a);

s:=0;

k:=0;

repeat

s:=s+a mod 10;

k:=k+1;

a:=a div 10

until a=0;

writeln('s = ',s);

writeln('k = ',k)

end.

4,7(97 оценок)
Ответ:
ivanm29
ivanm29
21.11.2020
                                     PascalABC.NET                                       beginvar s := ReadReal('Число:').ToString.Remove('.','-');Println('Сумма:',s.ToArray.ConvertAll(c->c.ToDigit).Sum);Println('Разрядов:',s.Count);end.

В отличии от программы данной в другом ответе, эта в разы короче и быстрей, а также работает с отрицательными и вещественными числами.

Пример работы:


Вывести на экран сумму цифр введенного пользователем числа(дополнительно: вывести количество разрядо
4,6(23 оценок)
Открыть все ответы
Ответ:
Zxbuffonfyjbsdj
Zxbuffonfyjbsdj
21.11.2020
Сестра мужа точно инженер
Сын точно слесарь
Муж может быть только учителем или юристом
Отсюда следует, что экономист либо жена либо отец жены. 
Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-) 
Тогда получается, что
- отец жены - экономист
- жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера
- муж - учитель, т.к. не кровный родственник жене-юристу.



ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.
4,4(1 оценок)
Ответ:
булати
булати
21.11.2020
Uses crt;
var
    b, a: real;
    n: integer;

begin
    clrscr;
    repeat
        Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
        Readln(n);
        
        case n of
            1:
                begin
                    write('Сторона квадрата=');
                    readln(a);
                    Write('S=', a * a);
                end;
            2:
                begin
                    write('Стороны прямоугольника=');
                    readln(b, a);
                    Write('S=', b * a);
                end;
        else exit;
        end;
    until false;
end.
4,5(17 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ