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

Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу на паскале)

  1. Ответ
    Ответ дан Toshiksvg
    Program proga;
    var a:integer;
    Begin 
    readln(a);
    writeln((a div 1000) * (a mod 1000 div 100) * (a mod 1000 mod 100 div 10) * (a mod 1000 mod 100mod 10)); 
    end.
Самые новые вопросы