Встречено 'to', а ожидался оператор Program noname1; var i,s:integer; begin writeln('Введите S'); readln(s); While i= 1 to 10 do begin S:= i*7; end; writeln(i,' *7=',s); end. Что не так?
В данном случае ошибка заключается в неправильном использовании оператора цикла While. Вместо "While i= 1 to 10 do" нужно использовать оператор цикла for, чтобы указать диапазон значений переменной i:
for i := 1 to 10 do begin S := i * 7; end;
Таким образом, программа будет корректно повторять вычисление S для значений i от 1 до 10.
В данном случае ошибка заключается в неправильном использовании оператора цикла While. Вместо "While i= 1 to 10 do" нужно использовать оператор цикла for, чтобы указать диапазон значений переменной i:
for i := 1 to 10 do
begin
S := i * 7;
end;
Таким образом, программа будет корректно повторять вычисление S для значений i от 1 до 10.