
С клавиатуры вводится трехзначное число. Найти произведение цифр числа; разделить 1 цифру числа на
3 цифру и вывести результат( в паскале)

Ответы на вопрос

program chislo;
var a,b,c,k,x: integer;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
k:=a*b*c;
writeln('произведение чисел = ',k);
readln;
End.
Вторая Задача
program chislo;
var a,c,x: integer;
k:real;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
c:=x mod 10;
k:=a/c;
writeln('деление чисел = ',k);
readln;
End.






Для решения задачи нахождения произведения цифр трехзначного числа и деления первой цифры на третью в Pascal, вам потребуется использовать арифметические операции и работу с числами. Вот пример кода на Pascal, который решает данную задачу:
```pascal program MultiplyAndDivide; var number, digit1, digit2, digit3, product: Integer; result: Real; begin // Ввод трехзначного числа с клавиатуры Write('Введите трехзначное число: '); ReadLn(number);
// Разделение числа на цифры digit1 := number div 100; // Первая цифра digit2 := (number div 10) mod 10; // Вторая цифра digit3 := number mod 10; // Третья цифра
// Нахождение произведения цифр числа product := digit1 * digit2 * digit3;
// Выполнение деления первой цифры на третью result := digit1 / digit3;
// Вывод результата WriteLn('Произведение цифр числа: ', product); WriteLn('Результат деления первой цифры на третью: ', result);
// Ожидание ввода перед закрытием программы ReadLn; end. ```
В этом коде мы используем переменные `number`, `digit1`, `digit2`, `digit3` и `product` для хранения чисел и промежуточных результатов. Значение трехзначного числа вводится с клавиатуры с помощью функции `ReadLn()`. Затем мы разделяем число на цифры с помощью операций деления и остатка от деления. Затем находим произведение цифр числа и результат деления первой цифры на третью. Наконец, выводим результаты с помощью функции `WriteLn()`.
Пример использования:
Введите трехзначное число: 456 Произведение цифр числа: 120 Результат деления первой цифры на третью: 1.52
Пожалуйста, обратите внимание, что данный код решает задачу нахождения произведения цифр числа и деления первой цифры на третью. Если вам нужно что-то еще, пожалуйста, уточните.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili