Помогите составить программу, которая вычисляет произведение трехзначного числа. Срочно надо! В Паскале.

Question

Помогите составить программу, которая вычисляет произведение трехзначного числа. Срочно надо! В Паскале.

Диана Белозерова Ученик (83), закрыт 8 лет назад

Answer 1

Скорее всего, вы имеете в виду произведение цифр трехзначного числа.
Тогда вот программа:
Program prim;
Var x, a, b,c,p: integer;
Begin
writeln('ВВедите трехзначное число');
readln(x);
a:=x div 100; {первая цифра}
b:=x mod 100 div 10; {вторая цифра}
c:=x mod 10; {третья цифра}
p:=a*b*c;
writeln('Произведение цифр=',p);
End.

Answer 2

begin
var x: integer;
repeat
x := ReadLnInteger('Введите трехзначное число:');
if (x < 100) or (x > 999) then
begin
WriteLn('Упс... ошибочка...: (');
Sleep(1500);
end;
until (100 <= x) and (x <= 999);
WriteLn('Ответ: ', (x div 100) * (x div 10 mod 10) * (x mod 10));
end.