Составить программу решения дано трехзначное число найти произведение этих чисел

Question

Фатима Зайцева

Информатика

3 сентября, 21:37

Составить программу решения дано трехзначное число найти произведение этих чисел

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Ярослав Иванов · Answer 1

Pascal:

Program sd;

uses crt;

var

s, y, z, x, r: integer;

Begin

clrscr;

Writeln ('Введите трехзначное число:');

readln (x);

s:=x div 100;

r:=x mod 100 div 10;

y:=x mod 10;

z:=y*r*s;

writeln ('произведение чисел = ', z);

readln;

End.