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

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

  1. Ответ
    Ответ дан Pro100Cool
    // Pascal ABC.NET
    var
        n, digit : integer;
        mult : integer := 1;
        sum, count : integer;
       
    begin
        readln(n);
        while n <> 0 do begin
            digit := n mod 10;
            inc(count);
            if count mod 2 = 1 then
                sum += digit
            else
                mult *= digit;
            n := n div 10;
        end;
        writeln('Summa is ', sum);
        writeln('Multiplication is ', mult);
    end.

Самые новые вопросы