Дано натуральное число n. Определить произведение его цифр
Uses crt; var n,pr: integer; beginreadln (n); pr: =1; repeatpr: =pr*(n mod 10); n: =n div 10; until n=0; writeln (pr); end.
пользователи выбрали этот ответ лучшим
Знаете другой ответ?
Другие вопросы по информатике
Дан одномерный массив из 10 следующих элементов: 3,0,1,7,4,5,6,2,9,0. Как изменится порядок элементов после выполнения фрагмента Паскаль-программы описанного ниже? … for i: =1 to 5 dobegint: =a[i]; a[i]: =a[11-i]; a[11-i]: =t; end; … 1) 0,9,2,7,4,5,6,1,0,32) 3,0,1,7,4,5,6,2,9,03) 0,9,2,6,5,4,7,1,0,34) 0,0,1,7,4,5,6,2,9,3
Вопрос по базам данных с вариантами ответадобрый вечер, школьники, студенты, а также более старшие представители (очень хотелось бы прочитать мнение студентов-программистов, специалистов по базам данных). Помогите, пожалуйста, ответить на вопрос по базам данныхвопрос: Какой проект даст алгоритм декомпозиции в НФБК отношения Apply (SSN,cName,state,date,major) с функциональными зависимостями cName → state и SSN,cName → date,major? *1) Apply (SSN,cName,state,date,major) 2) A1 (cName,state) , A2 (SSN,cName,date,major) 3) A1 (cName,state) , A2 (SSN,date,major) 4) A1 (cName,state) , A2 (SSN,cName,date) , A3 (SSN,cName,major) НФБК — нормальная форма Бойса Кодда
Ключевые слова программирования Паскаль, что они обозначают: and,end,nil,set,array,file,not,then,begin ,for, of, to, case, wrile, downto ,recond, with,function ,or ,type ,const ,goto, packed, until, div, if, procedure, var ,do ,in, program , else, mod, repeat! Помогите очень нужно!
|
ПОПУЛЯРНОЕ
nikolaenko2013, 23 марта 2024
Дан одномерный массив из 10 следующих элементов: 3,0,1,7,4,5,6,2,9,0
pautina13, 23 марта 2024
Ключевые слова программирования Паскаль, что они обозначают: and,end,nil,set,array,file,not,then,begin ,for, of, to…
|
