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

ввести целое число и найти сумму его цифр .проверить , если сумма цифр делится на 9 , сделать вывод число кратно 9 .

В pascal . Составьте пожалуйста полную программу со всеми обозначениями .

  1. Ответ
    Ответ дан mefody66
    var N, S: integer
    BEGIN
    write ('Vvedite N'); readln (N);
    S := 0;
    while N > 0 do
    begin
        N := N mod 10;
        S := S + 1;
    end
    writeln (S);
    if S mod 9 = 0 then writeln (N, 'kratno 9') else  writeln (N, 'ne kratno 9'); 
    END.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 5 лет назад

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

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

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

Сазонова Анастасия
История - 5 лет назад

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

Тетерина Татьяна
История - 5 лет назад

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

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

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

Информация

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