Вопрос задан 02.05.2019 в 02:25. Предмет Информатика. Спрашивает Феоктистова Камилла.

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

3 цифру и вывести результат( в паскале)
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Александров Олег.
Это на первую

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.

0 0
Отвечает Грех Глеб.
Программа на паскале внизу
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для решения задачи нахождения произведения цифр трехзначного числа и деления первой цифры на третью в 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

Пожалуйста, обратите внимание, что данный код решает задачу нахождения произведения цифр числа и деления первой цифры на третью. Если вам нужно что-то еще, пожалуйста, уточните.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос