Dubovitskayae
Dubovitskayae
18.03.2020
?>

Напишите код на Паскаль Найти произведение цифр заданного целого четырехзначного числа.​

Информатика
Ответить

Ответы

printlublino
printlublino
18.03.2020

var

 p,n:integer;

begin

 write('Введите число: ');

 readln(n);

 p:=1;

 while n>0 do

   begin

     p:=p*(n mod 10);

     n:=n div 10;

   end;

 writeln('Произведение цифр: ',p);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите код на Паскаль Найти произведение цифр заданного целого четырехзначного числа.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

arbat
Перевидите програму на язык поскаль
Автор: arbat
vasenkova1981
Даны два текстовых файла f и g. определить, ли компоненты файла f с компонентами файла g. если нет, то получить номер первой строки и первого символа в этой строке, в которых файлы f и g отличаются...
Автор: vasenkova1981
kulibabad566
Имеется фрагмент алгоритма, записанный на алгоритмическом языке: i : = длина(а) k : = 1 b : = 't' пока i > 1 нц с : = извлечь(а, i) b : = склеить(b, с) i : = i - k; кц здесь переменные a, b и с -...
Автор: kulibabad566
rpforma71189
Что такое остаточные файлы? И что будет если их очистить, удалиться ли что-то или нет? ​
Автор: rpforma71189
yorestov
Можно ли аргументы алгоритма изменять внутри самого алгоритма? почему? нужно для лабораторной работы!
Автор: yorestov
Voronov434
В чем отличия объектов Clipart от WordArt
Автор: Voronov434
blackpoint2020273
Подчеркни лишнее по смысу: кожа глаза уши язык нос
Автор: blackpoint2020273
inainainainaina0073
Изучите программный код и допишите недостающие слова (числа), начиная со 2предложения1) старт2) датчик сбрасывает первоначальныезначения3) робот совершает ... оборота вперед иповорачивает ...4) датчи...
Автор: inainainainaina0073
NarekAlekseevich779
С какой целью в некоторых файловых системах характеристики файла отделяются от его имени ? А) позволяет вкл файл в несколько каталогов б ) файлу можно присвоить несколько разных имен с ) скорость дос...
Автор: NarekAlekseevich779
vipteatr
Що таке числова матриця? 3. Який синтаксис оголошення багатовимірного масиву у Pascal? 4. Як зберігаються елементи багатовимірного масиву і який обсяг пам’яті вони займають? 5. Як здійснюється індекса...
Автор: vipteatr
Anshel2018534
Составить 1. разветвленный алгоритм. 2. с повторением. заранее
Автор: Anshel2018534
klykovav672
Взаданный непустой текст входят только цифры и буквы. определить, удовлетворяет ли он следующему свойству: текст начинается с некоторой ненулевой цифры, за которой следуют только буквы, и их количе...
Автор: klykovav672
Olesya
Определи вид информации, канал получения информации в зависимости от ее восприятия человеком. обращай внимание на основную функцию и свойство предмета! используй для ответов слова: зрительная, кра...
Автор: Olesya
Сопова
Восстановите определение одного из защиты данных. Восстановите определение одного из защиты данных копирование — создание данных, из которых потом можно быстро состояние системы и данных на , когд...
Автор: Сопова
nailya-abdulova25
Цикл з передумовою можуть виконуватися більше ніж один раз
Автор: nailya-abdulova25
▲