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.

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.