Question

введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа

Answer 1

program tak;
var a,b,c,d:integer;
begin writeln('введите пятизначное число '); 
readln(a); 
d:=1;
 while (a<>0) do 
begin 
 b:=a mod 10; 
if (b mod 2 <> 0) then
  d:=d*b; 
 a:=a div 10; 
end; 
writeln(d);
end.

Answer 2

мне надо именно турбо паскаль

Answer 3

бред какой... последний турбо был выпущен в 94. его теперь уже и на скачать толком.

Answer 4

на какой строке она вылетает? не на описании ли массива?

Answer 5

вот я ее записала и когда вывожу результат там вообще херомантия полная