Question

Встречено '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.

Что не так?

Answer 1

Место цикла while нужно использовать цикл for
Program noname1;var i,s:integer;beginwriteln('Введите S');readln(s);for i:= 1 to 10 dobeginS:= i*7;end;writeln(i,' *7=',s);end.
Вот так должно получится.