Программа Не работает в Free pascal - ошибки в логике
Primary tabs
Эта программа не работает в free pascal
{вывести на экран числа от 1 до 5 с помощью цикла for, при этом первое значение увеличить на 1, второе на 2, третье на 1, четвертое на 2 и т.д.} var x, z, y:integer; z:=1; for x:=1 to 5 do // переменная х получает очередное значение begin // открывающая операторная скобка y:=x+z; if(z=1) then // оператор условия в полной форме(с else) begin z:=2; end else begin z:=1; end; writeln('x=', x, ' y=', y); end;
- Log in to post comments
- 6992 reads
math2
Thu, 10/08/2015 - 19:49
Permalink
Она будет работать, если
Она будет работать, если добавить одну пару begin end.
vedro-compota
Thu, 10/08/2015 - 21:45
Permalink
math2, спасибо)
math2, спасибо)
_____________
матфак вгу и остальная классика =)
math2
Thu, 10/08/2015 - 21:50
Permalink
Не за что!
Не за что!