tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу для
Написать программу для pascal. найти произведение цифр числа введенного с клавиатуры.
HKTOG
1 29.07.2019 18:30
1
Ответы
Fluttershy0
03.10.2020 16:50
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
newsosnovskiymp06yuf
30.10.2019 19:28
Программисты составить программу паскаль последнее ...
маоия051209
30.10.2019 19:23
Сколько примерно пк приходится на 1 человека? ....
danielan2003
26.08.2019 19:50
Файл размером 4000 кбайт передаётся через некоторое соединение в течение 1 минуты. определите размер файла (в кбайт), который можно передать через это соединение за 45 секунд....
КоШкА2016
13.11.2020 21:30
Для чого використовується стиснення даних? Як називають програми, що виконують архівування даних? Які операції над архівами вони можуть виконувати? Назвіть формати архівних...
dhhdhhd55
13.11.2020 21:30
решить задачу через case(множественный выбор),через if я сам умею.Вычислить величину скидки.Скидка в 3% предоставляется,если сумма покупки больше 500 рублей, в 5% - если...
nastyabelgina1
13.11.2020 21:30
Определите информационный объём страницы книги, если для записи текста использовались только заглавные буквы русского алфавита кроме буквы Ъ. На странице 30 строк по 20 символов....
irynastar2103
13.11.2020 21:29
ПО ИНФОРМАТИКЕ БУДУ ОЧЕНЬ БЛАГОДАРЕН ЗА ОТВЕТ ПО ИНФОРМАТИКЕ БУДУ ОЧЕНЬ БЛАГОДАРЕН...
Z0L0Tk0C00L
13.11.2020 21:19
Составить блок схему 1 Составить программу вывода на экран «столбиком» четырех любых чисел. 2 Даны катеты прямоугольного треугольника. Найти его периметр. (значение для стороны...
JulianaBrolol
22.12.2020 13:29
с информатикой! Нужно написать программу в PascalABC. Сябки заранее =)...
черныйхащ
22.12.2020 13:28
запишите значение переменной s, полученной в результате работы следующей программы. s=0 for k in range (10,50): s=s+10 print (s)...
Популярные вопросы
Какая равнина раскинулась от западных границ России до Уральских гор?...
2
Use the prefixes dis- or un- to make new words. Write what the new words...
3
Граничний кут повного внутрішнього відбивання для скипидару на поверхні...
2
1. Какие грибы называют грибами-паразитами?2. Какие растения поражаются...
2
с английским буквально 2 задания умоляю...
1
Кожаный нужен морфологический разбор...
1
Математические ребусыKМИ,как решить эти ребусы?...
3
Длинное основание AN равнобедренной трапеции ABMN равно 38 см, короткое...
3
Контрольный диктант по русскому языку по теме: «Вводные слова» с грамматическим...
1
3. Изменения в положении христиан. 1)Как первоначально относились к христианам...
2
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.