Предмет: Информатика,
автор: maksgaliax
Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу на паскале)
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: История,
автор: gutsov09
Предмет: Другие предметы,
автор: nannysm
Предмет: Математика,
автор: slaaadca
Предмет: Геометрия,
автор: MaryPlace