Записать в Паскале.Отыскать творение всех цифр данного четырехзначного числа. x это

Записать в Паскале.Отыскать творенье всех цифр данного четырехзначного числа. x это 4ех значное чило
a,б,с,д цифры из x

Задать свой вопрос
Teraud Den
ну кто то
Олег Пужалин
прошу модера удалить вопрос
Паша Здоровов
ну тут через мод и див решается
Поцубеенко Леня
я незнаю
Камилла Миркурбанова
потому спрашиваю
Леша Солотинский
сейчас для тебя всё распишут
Гантимуров Валерий
а вы сможете потом удалить ответ
Dvinina Inna
нет)
Агата
жалко
1 ответ
Program Chisla;
var
x, a, b, c, d, dob : integer;
begin
readln(x);
d:= x mod 10;
a:= x div 1000;
b:=(x div 100)-10*a;
c:= (x div 10) - 100*a-10*b;
dob:=a*b*c*d;
writeln(dob);
end.



Оля Корзенкова
что такое dob
Миха
это творенье
Карина
добуток на укр
Славян Чабунин
лучший плиз
Юрок
а это разве правильно ?
Lena Zjuskova
да
Юра Толочаковский
а можно вместо dob написать a*b*c*d
Grynkov Daniil
нет нужна переменая
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт