Регистрация
Zhamik11
18.04.2023 13:45
Информатика
Есть ответ 👍

Напишите программу (в паскаль), которая выведет на печать сумму четных цифр числа и сумму нечетных цифр числа. программа получает на вход натуральное число.

120
245
Посмотреть ответы 2

Ответы на вопрос:

andreygaevskiy
andreygaevskiy
4,5(86 оценок)

ответ:

объяснение:

var s,n: integer;

begin

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

    s: =0;

    while n< > 0 do

    begin

      if n mod 10 mod 2 = 0 then s: =s+n mod 10;

      n: =n div 10;

    end;

    if s< > 0 then writeln('сумма четных цифр: ',s)

    else writeln('нету четных цифр в числе');

    readln;

end.

может быть неправильной.

Shvets73
Shvets73
4,4(56 оценок)
Операторы отличаются количеством повторений. цикл for - цикл с известным числом повторений цикл while - цикл с неизвестным числом повторений

Популярно: Информатика