Встречено 'to', а ожидался оператор
Program noname1
var i,s:integer
begi
writeln('Введите S')
readln(s)
While i= 1 to 10 d
begi
S:= i*7
end
writeln(i,' *7=',s)
end
Что не так?

Предыдущий
вопрос Следующий
вопрос

В данном случае ошибка заключается в неправильном использовании оператора цикла While. Вместо "While i= 1 to 10 do" нужно использовать оператор цикла for, чтобы указать диапазон значений переменной i:

for i := 1 to 10 d
begi
S := i * 7
end;

Таким образом, программа будет корректно повторять вычисление S для значений i от 1 до 10.