Подскажите, что не так сделал? Почему программка не множит c на

Подскажите, что не так сделал? Почему программка не множит 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.

Задать свой вопрос
Тоня Майорчик
а какое вообщем задание?
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.
Уматикова Милена
и дело не в том, что программа не множит. Программа множит, но не выводит значения, т.к. Нет оператора write(ln) либо print. Ошибка состоит и в том, что у тебя оператор readln читает значение p вне цикла, тогда введенное число будет заменено этим оператором.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт