Дано натуральное трехзначное число N. Определить сумму и произведение его цифр.

[joi_lacosta]

вот пытался решить но что то не так.Поправьте пожалуйста...я туплю...
вот условие:Дано натуральное трехзначное число N. Определить сумму и произведение его цифр.
Формат входных данных
Входной файл содержит целое трехзначное число 100<=N<=999.
Формат выходных данных
Выходной файл должен содержать две строки. В первой строке должна быть записана сумма цифр данного числа, во второй - их произведение.

Вот написал такой код:

var a,b,c,n,s,sum:integer;
t,k:text;
begin
assign(t,'input.txt');
reset(t);
writeln(a,b,c);
readln(n);
a:=n div 100;
b:=(n mod 100)div 10;
c:=n mod 10;
close(t);
assign(k,'output.txt');
rewrite(k);
sum:=a+b+c;
s:=a*b*c;
writeln(sum);
writeln(s);
close(k);
end.

ЧТО ТУТ НЕ ТАК?

[BDA]

var
  n: integer;
  t, k: text;
begin
  assign(t, 'input.txt');
  assign(k, 'output.txt');
  reset(t);
  rewrite(k);
  readln(t, n);
  writeln(k, n div 100 + n mod 100 div 10 + n mod 10);
  writeln(k, (n div 100) * (n mod 100 div 10) * (n mod 10));
  close(t);
  close(k);
end.

[Poma][a]

writeln(a,b,c);

Уберите эту строку
и замените ReadLn (n) на ReadLn (t, n)
и будет Вас счастье..

[joi_lacosta]

Сообщение от Poma][a

Уберите эту строку
и замените ReadLn (n) на ReadLn (t, n)
и будет Вас счастье..

то есть по вашему вот это будет верным??

v

ar a,b,c,n,s,sum:integer;
t,k:text;

begin

assign(t,'input.txt');
reset(t);
readln(t,n);
a:=n div 100;
b:=(n mod 100)div 10;
c:=n mod 10;
close(t);

assign(k,'output.txt');
rewrite(k);
sum:=a+b+c;
s:=a*b*c;
writeln(sum);
writeln(s);
close(k);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Poma][a]

var a,b,c,n,s,sum:integer;
t,k:text;

begin

assign(t,'input.txt');
reset(t);
readln(t,n);
a:=n div 100;
b:=(n mod 100)div 10;
c:=n mod 10;
close(t);

assign(k,'output.txt');
rewrite(k);
sum:=a+b+c;
s:=a*b*c;
writeln(k, sum);
writeln(k, s);
close(k);
end.

Вот так будет более-менее верно..

[joi_lacosta]

Сообщение от Poma][a

var a,b,c,n,s,sum:integer;
t,k:text;

begin

assign(t,'input.txt');
reset(t);
readln(t,n);
a:=n div 100;
b:=(n mod 100)div 10;
c:=n mod 10;
close(t);

assign(k,'output.txt');
rewrite(k);
sum:=a+b+c;
s:=a*b*c;
writeln(k, sum);
writeln(k, s);
close(k);
end.

Вот так будет более-менее верно..

а как в паскале проверить??написано что скопилировано,а вот именно ввести число и получить результат как можно?

[Poma][a]

Число у Вас должно находиться в файлике с именем input.txt, а ответ - в output.txt

[joi_lacosta]

Сообщение от Poma][a

Число у Вас должно находиться в файлике с именем input.txt, а ответ - в output.txt

СПАСИБО!ВСЁ ПОНЯЛ