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

на обработку данных поступает натуральное число не превышающее 10000000000.Нужно написать программу,которая находит сумму цифр числа меньших 6,если таких нет,то выводится "нет"

  1. Ответ
    Ответ дан ИнформатикБУ
    var
    n: longint;
    s: integer;
    p: boolean;
    begin
    s:=0;
    readln(n);
    while n > 0 do
    begin
    if n mod 10 < 6 then
    begin
    inc(s, n mod 10);
    p:=true;
    end;
    n := n div 10;
    end;
    if p = true then
    writeln(s)
    else
    writeln('Нет');
    end.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 3 года назад

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

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

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

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

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

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

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

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

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

Информация

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