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*
Комментарий*

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

Garifovich Greshilova791
Впитоне. заполните массив случайными целыми числами на отрезке [1; 100] и подсчитайте количество элементов массива, которые делятся на 3 и не делятся на 5
Автор: Garifovich Greshilova791
hristos1212
Составить программу, которая подсчитывает для каждого столбца массива а[1..5, 1..6] сумму значений элементов и формирует из полученных сумм одномерный массив b[1..6].
Автор: hristos1212
steger
Алгоритм вычисления значений функций f(n) и g(n), где n – натуральное число, задан следующими соотношениями: f(1) = 1; g(1) = 1; f(n) = 2*f(n–1) – g(n–1), g(n) = 2*f(n–1) + g(n–1), при n > =2 ч...
Автор: steger
AndreiAstakhva1442
Дан массив А(100 Найти кол-во его отрицательных элементов. 2.Дан массив А (50, 100). Найти сумму элементов каждого столбца 3.Дан массив А(100, 50). Найти кол-во четных элементов и сумму остальных. ...
Автор: AndreiAstakhva1442
silantyevevgeny
Информатика 2 класс. вопрос: напишите промежуточный результат. 1) , 2) мель- - соль
Автор: silantyevevgeny
inna-zub
Нужно создать сайт через блокнот. тема лошади
Автор: inna-zub
vovababkin1477
Машина выехала из пункта А в пункт В, между которыми Sкм. Машина двигалась с постоянной скоростью V и остановилась через t часов. Напишите программу, которая по введенным S, V, t определяет положе...
Автор: vovababkin1477
elivanova
Написать программу, которая в введенной с клавиатуры строке преобразует строчные буквы алфавита в прописные
Автор: elivanova
houseoftorture138
Заданы два числа. напишите программу для нахождения частного этих чисел. округлите результат до десятых, оставив в дробной части одну цифру.
Автор: houseoftorture138
Klochkov malakhov1974
Информатика 8 класс. Програмирование
Автор: Klochkov malakhov1974
kisa-luba
Как найти x log по основанию 12 (x) =1234, 321
Автор: kisa-luba
optikaleks7
4. Информация для человека – это знания (факты, правила), которыми он обладает. Что является информацией для компьютера?​
Автор: optikaleks7
taa19707470
Написать код к ! написать функцию вычисления суммы ряда: · стандартный диапазон значений x =0..9, шаг 0.1. убедиться, что на этом диапазоне элемент суммы ряда стремится к 0, при необходимости ско...
Автор: taa19707470
Панков1101
в python Тема: циклічні програми​
Автор: Панков1101
▲