var
n,p:longint;
begin
p:=1;
write ('N = ');
readln(n);
while n <> 0 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
p:=p*n;
writeln ('Proizvedenie: ',p);
readln;
end.
ilyaKZ,во-первых:идентификатор не может начинаться с цифры и во-вторых:неправильно организован цикл с предусловием,программа не будем считать произведение цифр,вы наверное его перепутали с циклом с постусловием
//Программа на языке паскаль:
program zagadka;
var s: String;
begin
writeln('Сидит девица в темнице, а коса на улице.');
readln(s);
while(s <> 'Морковь')
do begin
writeln('Не угадал. Попробуй еще раз');
readln(s);
end;
writeln('Правильно. Угадал!');
end.
/*
Описание:
Выводим пользователю загадку и просим его ввести ответ. Пока пользователь не угадает, просим его снова и снова вводить ответ, предварительно написав, что он ошибся. Как только мы получаем правильный ответ, программа выводит пояснение пользователю, где пишет, что тот угадал. Программа заканчивает свою работу.
Program 123;
Var n,s,i: integer;
Begin
Writeln('Введите число'); Readln(n);
While n=0 do begin
S:=s*(n mod 10);
N:=n div 10;
end;
Writeln('произведение цифр ',s);
end.