Создать программу в паскалеНахождения суммы и произведения трехзначного числа. Сказали, что еще пригодиться эта формула: z: = (adiv10)mod10
Заранее спасибо^.^

1
2 минуты
Спасибо, очень жду
Число вводится или так существует?
Ладно, пускай будет вводиться
вводится

Ответы и объяснения

2014-04-15T15:52:06+00:00
Var
  number, first, second, third : integer;
begin
  readln(number);
  first := number div 100;
  second := number div 10 mod 10;
  third := number mod 10;
  writeln('Сумма: ', first + second + third);
  writeln('Произведение: ', first * second * third);
end.