Подскажите, что не так сделал? Почему программа не умножает c ** a? var p,a,i:integer;...

Question

Подскажите, что не так сделал? Почему программа не умножает c на a?
var p,a,i:integer;
begin
p:=8;
for i:=1 to 10 do
begin
writeln ('Введите двузначное число');
readln (a);
p:=p*a;
end;
readln (p);
end.

Comments

а какое вообще задание?

Answer 1

Для начало нужно конкретное задание, Я так понимаю, что каждое введенное число должно быть умножено(на 8) и выведено, причем итерация должна быть исполнена 10 раз? И в твоей программе нет c.

попробуй так
var  p, a, i: integer;
begin  p := 8;  for i := 1 to 10 do   begin    writeln('Введите двузначное число');    readln(a);    p := p * a;  writeln(p);  end; end.

Comments

и дело не в том, что программа не умножает. Программа умножает, но не выводит значения, т.к. Нет оператора write(ln) или print. Ошибка состоит и в том, что у тебя оператор readln читает значение p вне цикла, тогда введенное число будет заменено этим оператором.