Задать вопрос
9 июня, 23:14

Написать программу для нахождения суммы цифр, составляющих число произвольной длины.

Написать программу, позволяющую определить, сколько заданных символов в данной фразе (искомые символы и фраза вводятся с клавиатуры. Например, сколько букв А и а в слове АбракАдабрА)

+3
Ответы (1)
  1. 10 июня, 01:48
    0
    Пункт а:

    Насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. Например если вы введете число из 9001 символа, программа будет работать неккоректно. Для выхода из цикла используется 'метка'.

    a, counter, Summa : integer;

    Label Transfer;

    Begin

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

    readln (a) ;

    counter : = 1;

    counterTw0 : = counterTwo + 1;

    while counter < 9000 Do

    begin

    counter : = counter + 1;

    if (a div counter) < 0 then Transfer

    else counterTwo : = counterTwo + 1;

    else;

    Goto Transfer;

    //Узнали, что в числе counterTwo символов

    while counter < counterTwo Do

    Summa : = Summa + ((a div counter) mod 10) ;

    Summa : = Summa + (a mod 10) ;

    writeln (Summa) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написать программу для нахождения суммы цифр, составляющих число произвольной длины. Написать программу, позволяющую определить, сколько ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы