толян Т толян Регистрация 28 Май 2013 Сообщения 82 Репутация 0 Спасибо 0 Монет 0 10 Янв 2017 #1 //otvet.imgsmail.ru/download/u_2ee8b89fd245f2d7ee9b129ce71d5af1_800.jpg
yost Y yost Регистрация 19 Июн 2013 Сообщения 90 Репутация 0 Спасибо 0 Монет 0 10 Янв 2017 #2 k=2 while p<2208 p=(k-1)*(k+1) k=k+1 wend print k-1 Позитивный голос 0
luhiuguyg L luhiuguyg Регистрация 29 Окт 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 10 Янв 2017 #3 Может так? var k, p: integer; begin k := 2; repeat p := (k-1)*(k+1); k := k + 1; until p > 2208; k := k -1; end. Позитивный голос 0
Может так? var k, p: integer; begin k := 2; repeat p := (k-1)*(k+1); k := k + 1; until p > 2208; k := k -1; end.