Решите пожалуйста задачу для Pascal ABC 8класс

  • 25-03-2008 15:28
  • Просмотры: 10
Ответы ( 1 )
ARINA LAGODA
+1
26-03-2008 01:20

Можно сделать по-другому (короче), просто функцию забыл :D var x:byte; begin x:=51; Repeat x:=x-2; write(' ',x); Until x<=1; end.